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BETETE 


DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 


s Verbatim 


= 





- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4”. 
- 5 1/4” en 48 et 96 TPI, simple et double face. 


Importateur exclusif : BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tél. 533-01-37. 
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Courrier des lecteurs 

Magazine 

Librairie 

Côté court 

Trucs à brac 

Essais matériel 
—- Interface MDX2 
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NewDos 80 v2 

Un utilitaire d'or 

Traitement de texte 
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Des outils pour votre 
programmation 

Essai PC1251 

Les factorielles 

Un programme pour mieux 
prévoir 

Recopiez votre affichage 

Essai CE 158 

Améliorez votre calcul 
mental 

Deux magnétophones 

Le DOS de À à Z 
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Editorial 


Peut-être êtes-vous allongés sur une plage ensoleil- 
lée au moment où vous lisez ces lignes ? Vous préfé- 
rez plutôt la campagne ou la montagne ? Peu importe : 
vous êtes sûrement en vacances ou pas loin de l'être 
et votre ordinateur va pouvoir se reposer un peu lui 
aussi ! Si vous écrivez des cartes postales, vous a- 
vez probablement un stylo à portée de la main : le 
moment n'est-il pas bien choisi pour répondre à notre 
enquête "Lecteurs qui êtes-vous ?" Un petit effort, 

il y à encore beaucoup de retardataires ! (En parlant 
de retard... vous n'avez pas été sans remarquer que 
nous avons pris une certaine avance sur... notre re- 
tard habituel de parution !) Et pendant que vous te- 
nez le stylo, vous pouvez aussi en profiter pour écri- 
re un petit article... hmm ? Rien qu'un "côté court 
sur une carte postale... ï Merci d'y penser et bonnes 
vacances à tous ! 


, 


Quant à TANDY, il est actuellement loin de s'endormir 
au soleil, même si celui du Texas est très chaud ! 
Après un temps couvert, quelques éciairs de bon augu- 
re annoncent l'arrivée du ciel bleu. : le modèle 4 

(qui est un "super" modèle 3 déjà en fabrication dans 
l'usine MATRA-TANDY), le modèle 100 (puissant ordina- 
teur portable mais présentant beaucoup de caractéris- 
tiques d'un ordinateur de table) et tout dernièrement 
le MC10 (ordinateur domestique offrant la couleur pour 
un prix inférieur à celui du SPECTRUM de Sinclair (120 
$ aux Etats-Unis)... Oui, l'arrière-saison devrait &- 
tre belle ! 
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* TRS-80 est une marque déposée de Tandy Radio-shack. 
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le magazine des utilisateurs de TRS-80° 











TRS-80 modèle 1, TRS-80 
modèle 2, TRS-80 modèle 3, 
TRS-80 couleur, TRS-80 
de poche, poquettes Sharp* 
Vidéo-Génie*, LNW* : 

si VOUS utilisez ou si vous 
comptez acheter un de ces 
ordinateurs, sachez que la revue 
TRACE a été créée pour vous. 
TRACE vous fournit quatre 

fois par an des programmes, 
des astuces, de nouvelles idées 
d'applications. TRACE est — 
indépendant de tout constructeur, _ 
et vous tient au courant de toutes D 
les nouveautés dans les domaines des logiciels, des matériels et des 
périphériques, quelle qu'en soit la source. TRACE teste pour vous, en toute objectivité 
et indépendance, les produits matériels ou logiciels qui vous intéressent. TRACE n'est 
pas en vente chez les marchands de journaux. Pour vous abonner ou pour recevoir un 
numéro, il vous suffit de nous retourner le bon de commande ci-dessous. 







MESSAGE DESTINÉ AUX UTILISATEURS 
DE TRS 80 A DISQUETTE 

















Désormais, tous les programmes 
publiés dans un numéro de TRACE 
et se rapportant aux TRS 80 de table 
ou à leurs compatibles 
sont regroupés sur une disquette 
que vous pouvez recevoir 
avec votre exemplaire de la revue. 






*TRS 80, Sharp, Vidéo-Génie et LNW sont des marques déposées. Trace a le même éditeur qu'ORDI-5 le magazine des utilisateurs de ZX SINCLAIR 


TRACE, le complément indispensable de votre TRS-80 


PS ee US Hess. 























BON DE COMMANDE 
Ï à retourner à TRACE, 8 rue Saint-Marc 75002 PARIS Ë 
I Nom Profession 
Ë Adresse _ 
Pays Code postal vie 
3 e Je désire recevoirlen°30 len°40 len°5E de TRACE (NB:lesn°* 1 et 2 sont épuisés). 





Ë e Je désire recevoir la disquette d'accompagnement des n° 1et2[ dun°30 dun°40] dun°50 
(Prix d'une disquette 55 FF; Etranger** 65 FF). 
Ë e Je désire m'abonner à TRACE pour 4 n° à partir dun°3 0 dun°40 dun°50 dun°60 
O avec disquette (Tarif France : 290 FF; Etranger“** : 320 FF: par avion 400 FF). 
! Q sans disquette (Tarif France : 105 FF; Etranger** : 120 FF; par avion 190 FF). 
(Actuellement TRACE est trimestriel). Ci-joint mon règlement indispensable par chèque bancaire 11 chèque postal[] virement [i 
l #* Pour les pays autres que la France, utiliser un virement en FF compte Crédit Lyonnais Paris n° 30002 00402 8401 M. Les frais de virement sont à la charge de l'acheteur. 





Ï 
Ë 
(Prix d'un n° 30 FF; Etranger** 35 FF; par avion 50 FF). 
. 
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L PÉCÉRE PEER 








LOGICIELS LIVRES ET PERIPHERIQUES POUR TRS-80* 
(Modèle 1 et Modèle 3) ET VIDEO-GENIE 































on utilise les instructions de base du Z-80 
pour bâtir des programmes de plus en 
plus sophistiqués. La dernière partie de 
l'ouvrage s'adresse aussi bien aux ex- 
débutants (puisqu'ils ont lu les premiers 
chapitres ils ne sont plus tout à fait débu- 
tants) qu'aux experts, en traitant de la ges- 
tion des périphériques en langage 
machine : l'écran, le cassetophone, 
l'imprimante, la génération de sons, etc. 
180 pages en français. 

145 F't.t.c. 





LOGICIELS 


THE BATTLE FOR 


NORMANDY : Excellent wargame 
simulant le débarquement allié en Nor- 
mandie en juin 1944. Jeu en solitaire con- 
tre l'ordinateur qui peut tenir indifférem- 
ment le camp allemand ou le camp allié. 
Utilise toutes les unités historiques en 
tenant compte de leur force relative. Opé- 
rations aéroportées dans la nuit du 8 au 8 
juin. Objectif du camp allemand : repous- 
ser les forces alliées. Objectif du camp 
allié : débarquer et s'emparer au plus vite 
de Caen, Cherbourg et Saint-Lô. Un jeu 
passionnant et de très haute qualité signé 
Strategic Simulations Inc. (S.S.1.). 

Cassette pour TRS-80 1 et 3 et Vidéo- 
Génie (16 K) 


EN 164 A1 
2 PR 


SEA SA 13, RUE DE TURIN, 75008 PARIS 





MACHINE LANGUAGE DISK 
1/0 &OTHER MYSTERIES : Pour 


modèle 1 et modèle 3. Tout sur le contrôle 
des disquettes en langage machine. 
Lecture/écriture d'une piste, d'un sec- 
teur, etc. Utilisation des routines des DOS, 
TRS DOS, NEWDOS, LDOS. 

345 F t.t.c. 


268 pages 


MANUEL DE L'EDITEUR 
ASSEMBLEUR PLUS DE 


MICROSOFT (en français) : Manuel 
d'utilisation, en français, de l'Editeur- 
Assembleur Plus de Microsoft. Vous 
apprend à utiliser l'Editeur-Assembleur 
pour créer et mettre au point vous-même 
des programmes en langages machine sur 
TRS-80 et Vidéo-Génie. Ce manuel fait 
partie du package du logiciel (voir dans la 
partie ‘‘logiciels’') Editeur-Assembleur 
Plus de Microsoft. Le manuel seul. 


EDITEUR-ASSEMBLEUR 


72 pages en français 99 F t.t.c. 

PLUS DE MICROSOFT : Outil de pag g 
a LIVRES __—| TRS DOS 2.3 DECODED & 
machine. eur (extrêémemen n & 
conçu) pere d'entrer des codes mné- | MANUEL DE NOUVEAZ 5 ou ele 
UE Tarlrniere Res machine | PROGRAMMATION DOS 2.3. de Tandy. Dans cet ouvrage vous 
M ere eine | ASSEMBLEUR SUR TRS 00 | Sen Su ete 
Due 7 sg ere LS re ET SES COMPATIBLES principales routines, etc. Ouvrage très 

po SERRE (Tome 1) précieux pour ceux qui veulent aller plus 


gage machine. Fourni avec le manuel 
d'utilisation en français. 
Cassette pour TRS-80 modèle 1 et Vidéo- 


Génie (16 K) 
345 F t.t.c. 


L'ouvrage de base pour s'initier à la pro- 
ns en er machine et à l'uti- 

tion des quti le programmation 
(Assembleur). Ce livre est le premier à 
aborder le sujet de manière concrète en 
présentant, toujours par la pratique, com- 
ment à partir des outils de programmation 


loin que le simple Basic et surtout pour 
ceux qui programment en langage 
machine. Au sommaire : la gestion des 
fichiers, les utilitaires du DOS 2. 3, les corm- 
mandes, la structure du “directory 

étude détaillée de SYS 0, SYS 1, . FSYSe éet 
de BOOT/SYS (avec le listing complet et 








commenté de chacun de ces modules 
système). Etude détaillée de nombreuses 
routines pouvant être appelées par vos 
programmes en langage machine. 

300 pages en anglais 335Ft.t.c. 


TRS-80 DISK & OTHER 


MYSTERIES : Tout sur les disquettes 
du TRS-80 : architecture du directory. 
organisation des fichiers, comment réc=- 
pérer des données ou des programmes 
sur disquette abîmée, etc. 

130 pages 210F ttc. 


MICROSOFT BASIC 
DECODED & OTHER 

: Toutes les z5xmes es 
la ROM utilisables pour programmer 
langage machine : adresse, comtes des 
registres, etc. Organssston « come. 
ment d'un programme Bas cù S = 
mence, où 1 stocke ses dconées en 


310 pages 2SFt£e. 
BASIC FASTER AND BETTER 
& DE 


E ZRRES 
améliorer votre TRS : baume eme 
phique, inversioz idée xs 
cules/minuscules, coment === = = 


musique, etc. 
330 pages 3SFtiss 


Densiin Hatier hôte 


THE CUSTOM TRSS0 


& OTHER MYSTERES 





PSE ERIC 
PERIPHERIQUES 


IMPRIMANTE 


MICROLINE 80 2995Ft.t.c. 



















UN RESEAU DE BOUTIQUES A VOTRE SERVICE : 


e Toute une gamme d'ordinateurs personnels 
















e Des logiciels pour programmer : langages, création graphique, etc. 
e Des logiciels de jeu : wargames, aventure, etc. 
e Des livres et des revues en français et en anglais. 
e Les toutes dernières nouveautés du marché américain. 
. BATIGNOLL is 
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BON DE COMMANDE 


Æ retourner à SIVEA S.A. - 31 bd des Batignolles 75008 PARIS 
DESIGNATION PRIX UNIT. |PRIX TOTAL 


MODE DE REGLEMENT 


Chèque bancaire joint [] | Participation port et emballage 
(Voir aussi ci-dessous : + 250 F) 




















Code Postal 





+ 30F 





Bureau distributeur 
o Contre remboursement : + 30F 


CCP joint (France seulement) 


























Mandat-lettre joint DO | Etranger et DOM-TOM : + 30 F 


Pays 

Téléphone Contre-remboursement Ü 
Marque et type de matériel 
pour lequel ces articles sont 
commandés : 


FRAIS DE PORT ET EMBALLAGE 

Ajouter 250 F pour toute commande comportant, pour tout ou partie, des articles tels 
que : unité centrale, floppy-disk, imprimante, moniteur vidé, papier pour imprimante. 
Transport par service express avec assurance comprise. Corse, DOM-TOM, étranger : 
nous consulter par téléphone ou courrier en ce cas. 





Parking a5Suré 43 bis, bd Batignolles DU LUNDI PE LE en 
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BON POUR RECEVOIR É 
| | UN CATALOGUE | 
GRATUIT 
| | Participation frais de port | 
joindre à ce bon 3 timbres 
[1 à2,00r. "| 











































ÉDIT. LEASING-. CARTE VISA- 













DE 


L'ORDINATEUR 
INDIVIDUEL 


e Panorama des ordinateurs valant jusqu'à 60 000 F (plus de 180 matériels) 

e Tableau récapitulatif de tous les O.I. dans plusieurs configurations 

e Panorama des imprimantes pour ordinateur individuel (plus de 80 matériels) 

e Réactualisation de bancs d'essai de matériels parus dans L’O.I. 

e Revue des bancs d'essai de logiciels parus dans L’O.I. depuis le n° 34 

e Annuaire des fournisseurs et des clubs : plus de 1500 adresses 

e Le point sur les nouveautés parues depuis l’été 82 

e Dictionnaire de l'informatique individuelle 

e .… Et une série pour vous ‘‘guider”’ sur le chemin de votre informatisation individuelle 


à partir du 15 septembre 1983 
35 FF* chez votre marchand de journaux 


Pour recevoir le Guide 83-84 dès sa parution, il vous suffit d'envoyer vos nomet 
L'ORDINATEUR INDIVIDUEL (GUIDE 83-84), 39, rue de la Grang 


> 

















cs 
ERVICE Fr 
EFRISE 


- 41 ROUTE DE RENNES - 44700 ORVAULT - 
TÉL. (40) 59.18.51 Æ 


SFECIALISTE 

















DE L ? IMPRIMANTE e 
h FROFESSIONNELLE Se S 
n ? OCCASION ns 
\ © 
AU FRIX DE ... S 


1 PAS OE 
{recondit ionnée) 


Re EL CS | 
(non revisée mais bon etat) 


LOGAEAX 


E_X — L'EtC 





+ LARGEUR PAPIER RÉGLABLE 
+ JEU DE 96 CARACTÈRES DROITS ET /TALIQUES 
+ ÉQUIPÉE DES OPTIONS :- BUFFER DE CARACTÈRES 


e L35> EC CINE S 
ee LOC LR T SEE 





EN OPTION POSSIBILITÉ DE CARACTÈRES TAPL - IMPRIMANTE SUR PIÈTEMENT 
ACCENTUES, SEMI-GRAPHIQUES, MATHEMATIQUES, CONNECTION  : Cable FOUR TRS-80 » 
INDICES. KIT INSTALLÉ : 320f RS Co te ren drone er 


AREAS GTS FHALSUPA RTS 67800046 ST TI EE le Data rl D NT 920 x 
ht 1 LN TT XOM OH Im &eT8G äétoüdacéans fhtaf6 e GoPté NX 


EXEMPLE : 





GERS TIE FE FARZRSE c'est aUuSssr - + 
LES MEILLEURS FRIX SUR le maleriel NEUF 


_ MICRO CF IN EP D ERIRES NN ee EN PE LERHRER LOIRE 


DORE EL de DENSITE eh Un TEUR: HE CL LRO  Oe 


ASSURE 180 Koctets par drive 


1 seul drive suffit a en Di oiu nc | FASCAL 8O de NCS 
i 5 C Farmet a Un Microordinaleur dæ commun iauer Modele I et III » 1 DRIVE 
directement Par telephone avec Un autre micro c’est GENIAL ! 
= — bre | © Full duwwlex » connection directe 300 bauds Documentation » support de cours 


Occasions racantes 1 Res en FRANCAIS incluse 
TRS-80 Modeles I de 82....3500 F 1290 F error 


interfaces d'axtansion » drives. 





| 
7 


Eu RME TS FRISE-LEFOT VENT 
BON DE COMMANDE 


à retourner à SERVICE REPRISE - 41 route de Rennes - 44700 ORVAULT 


TM 


Drive TEAC 5 pouces » 40 PISTES 
SIMPLE 


Pour TRS-80 modele III 

















RE net EE avec ALIM et BOITIER. NO Prénom 
assemblae » TESTE 1145 F DRIVE S °?Dèle dens-#20 dl Adresse = _ = 
KIT comlet ss drive 2195 F ne 

CP. __ Ville__ & Pays ___ 


COMFOSANITS Sépcifier le type d'ordinateurs _—— 


PUHT. Montant HT. 
Imprimante Reconditionnée 2450 | 


Imprimante en l’état 
Câble de liaison 
Autres 
















CLAVIERS EFFET HALL Quantité 
valeur neuve :4500 F HT.Livre en COFFRET. 


64 touches + 19 toucires fonctions :...200 F 





soit 3 F la touche a effet Hall !11 









AL IF 5 Volts 4 Ame 7» 
dans Rack 19 Pouces 






me CT EN VE 


-TRS-80 Modele I ET Modele III sont des maraues deposees de TANDY RADIO SHACK 
VIDEO GENIE SYSTEME est une marque deposee de EACA 


= | PORT et EMBALLAGE : Les TVA 186 % 
1 | Marchandises au-dessus de 5kg | TOTAL TTC F Trc 
TA voyagent en Port dû Cijoint régl. par chèque [| Mandat [l 


Extrait de nos CONDITIONS DE VENTE : 
Prix HT au 10 novembre 82 au depart de Nantes. 
T.V-4. 18r6 Z sur tout le materiel. 
Materiel disponible dans la Limite des stocks. 








Les lecteurs abonnés à la disquette TRACE ont été 
très rapides à réagir (bien plus rapides qu pour 
répondre au questionnaire...) devant le retard de 
celle accompagnant normalement le numéro 5. Voici 
quelques explications. Tout d'abord, la disquette 

NE PEUT être envoyée en même temps que le magazine 
(à moins que vous préfériez un retard supplémentai- 
re, hmm ?) car c'est seulement à la parution de ce 
dernier que nous pourrons déterminer la liste exacte 
des programmes devant figurer sur cette disquette 
ainsi que de rétribuer les auteur des articles (un 
changement de dernière heure peut en effet nous obli- 
ger à remplacer un article par un autre). Enfin, no- 
tre fournisseur habituel n'a pas trouvé un meilleur 
moment pour tomber en rupture de stock... Voilà qui 
explique que vous avez reçu votre disquette avec un 
peu de retard. Mais soyez sans crainte : vous n'avez 
pas été oubliés ! 


Nous continuons toujours à recevoir de vous un abon- 
dant courrier. Malheureusement, il nous est impossi- 
ble de répondre individuellement - le temps passe si 
vite ! - à toutes vos questions. Toutefois, lorsque 
vos lettres sont accompagnées d'une enveloppe affran- 
chie et à votre adresse, nous répondons toujours, mê- 
me si c'est parfois pour vous dire que nous manquons 
de temps présentement pour étudier votre problème ! 
Certaines questions sont en effet si spécifiques que 
leurs réponses nécessiteraient des heures de recher- 
ches et risqueraient de compromettre grandement la 
sortie du journal qui se fait déjà trop attendre ! 

De même, ne soyez pas trop impatients en ce qui con- 
cerne les articles que vous nous soumettez et qui peu- 
vent paraître avec un décalage de plusieurs num 
Si vous attendez notre répon 
voyer votre article à une autre r 
est encore de joindre une envez 
votre adresse, ce qui nous peræe 
quer rapidement nos intentions. 
pas les MÊMES articles à PLUS 
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: cela 
publier 


(si. si ! Nous 2vons 
vous vaudra sûrement 
dans aucune d'elles, et © 
chéant, faites un choix = 
des autres revues. PAR PIT 
grammes en anglais (pourquoi 
la nous oblige à les traduire en 
fait perdre un temps précieux. La 
teurs doivent déjà se battre avec les do 
non-traduites de certains logiciels ou s2 
n'est pas pour continuer ici n'est-ce pas 
des lecteurs nous demandent de les mettre 
avec certains de nos auteurs. Dans ce dernier cas, 
nous communiquons toujours la demande à l'auteur en 
question mais nous ne disposons évidemment d'aucun 
moyen de pression pour que celui-ci y réponde ! Merci 
de votre coopération. 









L'accent d'Anvers ou de Denver... 


- Après lecture de l'article "Dites-le avec l'accent 
Belge..." (TRACE n° 3), je voudrais savoir s'il y a 

un moyen d'utiliser le kit BCM accentué sous 

80. Le programme fourni par la maison BCM ne 

difier que le TRSDOS (un peu désuet, avouons- 
(Gérard Manel, Vaucouleurs) 





* Un appel est lancé à nos lecteurs 
comptons BCM qui a peut-être déjà 





Une réponse et une question... 





- Dans le numéro 3 de TRACE, un 1 

problème de l'adaptation pour mode 
BASIC donnée dans le volume 2 de ” 
80". Voici ce qu'il faut faire : 








- déplacer l'origine de H2EAH à L3 

- supprimer la routine de rebonds (1 

- modifier la fin de programme ainsi 
5340) : 


DEFW O 
BUFBAS DEFW O 
DEFW O 
DEFW O 
INIT CALL 1B49H 
JP 1419H 
END INIT 


Voici maintenant mon problème : Le programme "sauve- 
gardez vos cassettes! (TRACE n° 4) ne fonctionne pas 
sur modèle 3, probablement à cause des problèmes d'a- 
dressage des ports de sortie cassette. 


(J. Constancias, Fontainebleau) 


* Merci pour ces importantes pr 
lecteur apportera-t-il une ré 
blème ? 











mule de la case B20 dans l'exemple de feuille d'impôts 
du livre "Visicalc sur TRS-80" (éditions du PSI) pour 
obtenir le bon résultat sans cette fonction ? 

(M. Morcrette, St Quentin) 


* 11 suffit de déplacer avec [/M] 1a ligne 27 après 
les deux lignes suivantes (en position 29), puis 
de remplacer dans la formule en B20 la fonction 
CHOOSE (B26,A27...M27) par LOOKUP (B26,A28... 
M28). 

(Réponse donnée par Hervé Thiriez, auteur du li- 
vre cité). 


Transfert modèle 3 --> modèle 1 


— Connaissez-vous un moyen pour transformer les pro- 
grammes établis sur disquettes TRS-80 modèle 3 sur le 
modèle 1 ? (Association artistique et culturelle du 
CEA, Marcoule) 


* Deux choses sont nécessaires pour parvenir à ce 
but : le modèle 1 doit être équipé d'un doubleur 
de densité et d'un logiciel le supportant : LDOS, 
NEWDOS-80 par exemple. Le programme SUPER UTILI- 
TY PLUS s'avère également très pratique pour ce 
genre d'opération. 


Nouveaux modèles 1 


- Suite à votre courrier des lecteurs du numéro 4, 
j'ai eu la curiosité de "soulever le capot" de mon 
modèle 1. Ma surprise fut grande de constater que le 
Circuit imprimé et la numérotation des circuits étai- 
ent très différents de ceux décrits dans le livre "la 
pratique du TRS-80" volume 3. Tout d'abord, il n'y a 
plus que 67 ''puces" sur la carte principale au lieu 

de 76, dont 2 boîtiers 2114 à la place de 7 x 2102, 
ce qui permet d'avoir les minuscules facilement ; 
disparition du "kit" BASIC qui est remplacé par deux 
ROM (A et B) ; remplacement de certains "buffers" 74 
LS367 par des 74LS244 et 245 ; remplacement du géné- 
rateur de caractères MCM6670 par un SCM37530 qui est 
(hélas !) soudé directement sur la carte ; un empla- 
cement reste libre pour un circuit de 18 pattes, jus- 
te à côté du générateur de caractères, et est sérigra- 
phié CGA (2?) Est-ce une extension prévue pour recevoir 
un générateur accentué ou une extension graphique ? 
(Jean-Paul Calvier, Ste Foy-les-Lyon) 


* Merci pour ces compléments techniques. 


Emouvante pensée... 


- Lorsque vous publierez votre prochain numéro, ayez 
une pensée émue pour tous ceux qui comme moi n'ont 





influx 


NOUS SOMMES FIERS DE NOTRE EQUIPE 


La somme de notre experience des micros TRS* atteind 
presque le demi siècle. 








Pour TRS* 80 modèle 1 et 3: 





@carte haute résolution couleur Hinflux disponible 
en septembre avec BASIC graphique couleur, prix 
de lancement: 1905 F TTC. 


@ Réservation 1000 F dés aujourd'hui. 


@ Nous distribuons aussi toutes les extensions et kits 
qui exprimeront toute la puissance de votre TRS*. 


#* Marque déposée. 


L—-4 L 1 Le) L | 3 _ _ + L 1 æ EE EI L __: CEA ET L | L __! [| 
F BON DE COMMANDE A RETOURNER A : Hinflux 20, rue Laennec, 78330 FONTENAY-LE-FLEURY 
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[| ADRESSE 





RC ODE POELE 
I Signature TEL 


MODE DE REGLEMENT . MANDAT [I CCPO) CHÉQUE BANCAIRE CO CONTRE REMBOURSEMENT + 30F 


Re nf eme Um en eu RU GR nn ca Cine Cu Mu 


Consultez nous, nous avons 
nouveautés. 

Notre rayon bibliothèque contient de nombreux 
ouvrages spécalisés sur le TRS* et le Z80 
Documentation sur demande contre 2 timbres à 2F 
(Envoyer une enveloppe avec votre adresse complète.) 


Prix indiqués au 15 Juin 1983 
= 


er EE EEE ET ET ET 
NOS MODELES SPECI AUX 
NOS 


TRS* Hinflux 64 K 2 drives CP/M* 19 990 F 


TRS* 3 Hinflux 48 K 2 drives, haute résolution 
512 X 192: 18 000 F 
Synthétiseur vocal pour TRS* 1: 495 F 


constamment des 





QUANTITÉ DÉSIGNATION 





PRIX UNITAIRE 
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pas de disquettes, et qui pianoteront fébrilement a- 
vant de découvrir les nouveautés ! (Christian Dorchain, 
Aspet) 


* Qui, nous pensons bien à vous ! Mais pour vous 
consoler, ne croyez pas que nous recevons tou- 
jours les programmes de nos auteurs sur une bel- 
le disquette et nous devons aussi en passer par 
1à... (parfois même après avoir vainement tenté 
de lire une cassette récalcitrante !) Avez-vous 
essayé d'améliorer votre vitesse de frappe... 
avec le programme de notre numéro 1 ? 


RUN sur modèle 3 


- Quelle est l'adresse d'entrée dans la routine RUN 
de l'interpréteur BASIC du modèle 3 ? (CGCT, Massy) 


* L'adresse en question est : 1B5DH, comme sur le 
modèle 1 (nous connaissions déjà cette dernière, 
mais il n'était pas évident que l'adresse soit 
la même sur les deux machines). Il reste mainte- 
nant à savoir comment on l'exploite... ! 


Des instructions pleines de piquants ! 


- Bon nombre de programmes proposés dans TRACE renfer- 
ment quelques PEEK et POKE qui me chagrinent un peu ! 


SPECIALISTE DES 
LOGICIELS DE 

GESTION SUR 
MICRO-ORDINATEUR 
adaptés aux PME 
PMI, commerçants, 
artisans, professions 
libérales. 


ele) )',|22 7: UTILE 


LOGICIEL DE COMPTABILITÉ GÉNÉRALE 
So Rre 2271\le le) 


JAN | = LLR 


LOGICIEL DE TRAITEMENT DE LA PAIE 
: 1500 F TTC FRANCO 


MATERIELS RECOMMANDES : 
Pour TRS-80 Modèle III (c) 
48k, 2 unités disques 5” 


Imprimantes recommandées 
LPVII, LPVI, LPV, DMP-200, DMP-400 


(c) Marques déposées Tandy corporation 


CONTACTER S.A.R.L. SERIE HI 
5, rue Mont Alaric 11 NARBONNE 
Tél. (68) 42.18 92 - 498257 
pour obtenir des renseignements complémentaires 
®Marques déposées Dominique PETITQUEUX 


Loin de dén 
reviennent à 
crains qu'elles n 
(mal)heureux poss 










lor et assimilés pour qu' 
sance d'une rubrique spé 
TRACE...). Ne serait-il pas 
commentaires des programmes 
à d'en per- 


- Chareyron, 





Bellignat) 


* En effet, ces instructions déroutent toujours un 
peu les amateurs de "vrai" BASIC ! La plupart du 
temps, elles sont très spécifiques à la machine 
et au logiciel et n'ont pas toujours de relations 
immédiates avec un autre matériel. De ce fait, 

il est délicat d'en parler sans se trouver en- 
traîné dans des considérations très techniques ! 
Le plus simple à notre avis serait de regrouper 
dans un même article les différentes utilisations 
de PEEK et POKE appliquées au TRS-80. Elles ne 
sont pas si nombreuses après tout... Le plus 
simple serait aussi qu'un volontaire... 





AU-DELA 
DES MACHINES 








La société IDEM (Importation et diffusion d'équipement 
micro-informatique) dont nous avons déjà eu l'occasion 
de parler dans nos colonnes (Pascal-80, Stringy Flop- 
Py, par exemple) change de sigle et devient désormais : 
IDEN. La raison en est fort simple : ce sigle était 
déjà utilisé depuis plusieurs années par une société 
Toulousaine. 


(IDEN, 34 bis rue Sorbier, 75020 PARIS). 


SIVEA annonce l'ouverture d'une nouvelle boutique à 
NANTES. D'une surface de plus de 100 m2, elle est, de 
même que dans les trois autres boutiques, divisée en 
deux aires distinctes : informatique pour l'entrepri- 
se et loisir informatique, chacune d'elles comprenant : 
matériels, logiciels, livres et revues spécialisés. 


(SIVEA NANTES, 21 4 Bd G. Guist'Hau, BP 388, NANTES 
CEDEX) 


Suite à La demande d'un lecteur (TRACE n° 4) concer- 
nant le type d'emballage à utiliser pour expédier une 
disquette par voie postale, la société FRANIC nous 
propose une solution : une pochette de protection 
spécialement étudiée dans ce but et pouvant contenir 
deux disquettes 5 pouces (100 F HT les 10). Cette mê- 
me société fabrique également des feuillets perforés 
en matière plastique pour le classement des disquet- 
tes en album. 


(FRANIC, rue de la Chapelle, BP 2, 49190 BEAULIEU- 
SUR-LAYON) 


SERIE III, société de conception de logiciels sur TRS 
modèle 3, propose 3 programmes professionnels : COMP- 
TA-III, PATE-TII et FACTO-III (facturation, gestion 
de stock) au prix unitaire de 1500 F TTC accompagnés 
d'une documentation complète et en français. 


(Dominique Petitqueux, 5 rue Mont Alaric, 11100 NAR- 
BONNE} 


SIDEG Informatique annonce la commercialisation d'un 
programme réalisant sans le secours d'une carte spé- 
cifique, la synthèse vocale et musicale par la sortie 
cassette du TRS ou du Vidéo-Génie. Le procédé utilise 
29 diphonèmes élémentaires à consonnance française. 
Prix : 350 F TTC en version cassette, 380 F TTC en 
version disquette. 


(SIDEG, 170 rue Saint-Charles, 75015 PARIS) 


La société belge LOGAWAL distribue plusieurs produits 
tournant sous CP/M (TRS modèle 2) 


- WalCore version 3.0, logiciel de gestion de fichiers 
en français, permettant de traiter 13000 fiches de 

500 caractères. Tris et sélections multi-critères, 
impression en tableaux, étiquettes et lettres person- 
nalisées, etc... Prix 2650 F HT. 


ses. eses 





— WORDSTAR 3.0 en français (de Micropro), logiciel 
de traitement de textes. Prix 25500 FB HT. 

- INFOSTAR (de Micropro) qui est une combinaison de 
DATASTAR (saisie de données et liaisons de fichiers) 
et de REPORTSTAR (tri, sélection et fusion de don- 
nées, édition de tableaux, impression formattée. 
Prix" 255000 FB2RT 


(LOGAWAL, 200 Av. W. Churchill, 1180 BRUXELLES - 
BELGIQUE) 


TANDŸ annonce l'ouverture à Bordeaux (depuis le 7 a- 
vril 83) d'un nouveau Centre-Ordinateur. Parmi les 

103 magasins répartis sur le territoire français, 10 
d'entre eux sont des Centre-Ordinateurs dans lesquels 
seuls sont présentés les 150 produits de la gamme TRS- 
80. 


Enfin, de grandes nouveautés tant attendues 


- Unité de disque dur 5 Moctets pour TRS modèle 3 
présentée dans un châssis séparé de l'ordinateur et 
contenant sa propre alimentation. Possibilité de rac- 
corder jusqu'à 4 unités. Un kit d'adaptation est pré- 
vu pour le modèle 1. Prix : 23995 F TTC (1ère unité), 
19495 F TTC (unité secondaire), 375 F TTC (adaptation 
modèle 1). 


- Système d'exploitation de disquette LDOS sur modè- 
les 1 et 3 permettant l'exploitation de disquettes 
simple et double face, simple ou double densité et 
disques durs. Une documentation de 350 pages (en an- 
glais ?) accompagne ce DOS ainsi qu'un utilitaire de 
conversion pour transférer les progiciels Tandy (mo- 
dèles 1 ou 3) tournant sous TRSDOS. Bien que ce sys- 
tème d'exploitation fasse automatiquement partie de 
la fourniture en configuration disque dur, les utili- 
sateurs de disquettes 5 pouces des modèles 1 et 3 
peuvent également se le procure au prix de 1195 F TTC. 


(TANDY, 211-213 Bd Mac Donald, 75019 PARIS) 


Tandy vient d'annoncer aux Etats-Unis deux nouveaux 
produits d'une grande importance et que nous espérons 
voir arriver en France très rapidement... 


- Le modèle 4, dont l'apparence est celle du modèle 

3 si ce n'est la couleur "blanc cassé", est équipé 
d'un écran de 24 lignes de 80 caractères, d'une capa- 
cité de 64K octets de mémoire vive pouvant être éten- 
due à 128 K (simulation d'un disque-mémoire). L'hor- 
loge du microprocesseur - tant critiquée pour sa len- 
teur - est portée de 2 à 4 Mhz (le double). L'utili- 
sateur aura le choix entre les systèmes d'éxploitation 
LDOS ou CP/M Plus... Le BASIC Microsoft a été étendu 
par les instruction CHAIN et COMMON pour le traitement 
des gros programmes. Le clavier comporte maintenant 

70 touches (CONTROL, CAPS et 3 touches de fonctions). 
Parmi les options : le disque dur et le graphique hau- 
te résolution (640 x 240). Ah la belle bête ! Le prix ? 
Dérisoire, même au cours actuel du dollar : 1999 $ 
(15000 F) avec 2 disquettes 184K et l'interface RS- 
322 
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La "petite annonce" que nous passions dans le numéro 
5 de ces colonnes concernant l'industrialisation de 
la carte HRC (Haute Résolution-Couleur) pour modèles 
1, 3 et compatibles a donné un résultat positif puis- 
qu'une jeune société : Micro-Influx, s'est tout de 
suite portée volontaire pour assurer sa commerciali- 
sation. Les choses n'ont pas traîné puisqu'un modèle 
3 équipé de cette carte était exposé à Micro-Expo 
(peut-être l'avez-vous vu ?). Date de disponibilité 
septembre 1983. Micro-Influx qui représente également 
la marque SANYO, prête la plus grande attention au 
TRS modèle 3 sur lequel il propose des "aménagements" 
et des extensions contrôleur et lecteurs de disquet- 
te,carte CP/M, etc... 


(MICRO-INFLUX, 20 rue Laënnec, 78330 FONTENAY LE 
FLEURY) 


- Autre surprise avec : le modèle 100. Il s'agit d'un 
ordinateur portable de 1a taille de l'Epson HX-20 : 

30 cm x 20 cm x 5 cm, muni d'un vrai clavier de machi- 
ne à écrire et d'un affichage à cristaux liquides de 

8 lignes de 40 caractères en mode texte ou 240 x 64 
points en mode graphique ! Il inclut évidemment sa 
propre batterie mais aussi une inter e série et un 





modem prêt à être raccordé sur une ligne téléphonique 
(aux USA pour l'instant). Avec ce système, plus be- 

soin de téléphone pour converser avec un autre ordi- 
on compose directement le numéro à partir du 


nateur 





clavier ! Nous y trouv 









Le micro- 
CMOS (faible 
avec le Z- 
Koctets et 
>. Le BASIC 
culièrement 
Le prix de 
799 à 1134 $ selon configu- 


réel faisant aussi fon 
processeur du modèle 1 
consommation) du 8085 à 
80), sa mémoire morte à un 
sa mémoire vive peut s'ét 
que l'on trouve ici dans une 








cette petite merveille 
ration mémoire. 


Heureux hasard ! 


Comme nous vous l'avions promis, nous avons procédé 
au tirage au sort de ! noms parmi les réponses que 
nous avons reçues à notre questionnaire "Lecteurs qui 
êtes-vous ?". (Questionnaire que nous sommes en train 
de dépouiller). Voici les noms désignés par le sort, 
ainsi que leur ville de résidence 


- Joël Bertaux (Thoissey) 

- Louis-Xavier Carbonnel (Ay) 

- Jean-Louis Laesser (Ostheim) 
- Corinne Nicolaï (Marseille) 


Si vous êtes l'un des heureux (se) élu(e)s, et que 
vous n'avez à ce jour reçu aucun courrier de Trace, 
c'est que nous possédons une adresse érronée : en- 
voyez-nous un petit mot afin de faciliter les choses ! 
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VISICALC VISICALC... 


Avec le modèle Visicalc, vous pouvez créer sur votre P.S.I. 
(Petit Système Individuel) un tableau comportant des titres, 
des valeurs et des formules. Dès que vous changez une 
des valeurs numériques, tout le tableau se met à jour en 
fonction des formules. Cet ouvrage vous guide pas à pas 
dans l’utilisation du Visicalc, à l’aide d’exemples pro- 
gressifs. De nombreux cas d’application sont présentés 
dans la seconde partie, au rythme d’un chapitre par cas : 
échéancier de remboursement, feuille d'impôt, gestion 
de copropriété, paye, facturation, tableau de bord... 
Chaque exemple sert à introduire de nouvelles ins- 
tructions ou astuces d'utilisation. 


176 pages - 82,00 FF / 635,00 FB 















P.S.I. DIFFUSION 
41-51. rue Jacquard 

BP 86 - 77402 Lägny-s/Marne Cedex 
FRANCE 

Telephone (6) 007.59.31 

P.S.I. BENELUX 

5. avenue de la Ferme Rose 

1180 Bruxelles 
BELGIQUE 
Telephone (2) 34 
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"LA CONDUITE DU PC-1211 (ou TRS-80 POCKET)" 
Par Didier Picking 
Editions EYROLLES, Collection "Micro-Ordinateurs" 


152 pages 
Pr: 007E 





Comme le présente l'Editeur, cet ouvrage n'a pas la 
prétention d'enseigner le BASIC aux néophytes, mais 
plutôt de mieux faire ccmprendre les particularités 
des SHARP PC-1211/TANDY 1 et surtout de faire profi- 
ter les lecteurs des "trucs et astuces" déccuverts 

par l'auteur. 

Ce dernier nous propcse donc une "exploration" du PO- 
CKET en quatre parties ; les deux premières sont con- 
sacrées à une description du mode de fonctionnement 

en manuel et en programme ; les deux autres permettent 
“d'aller plus loin" en nous livrant les particularités 
découvertes par l'auteur et illustrées par des "mor- 
ceaux choisis" de son "oeuvre". 


Passons rapidement sur la première partie résumant en 
une dizaine de pages l'utilisation du POCKET en "cal- 
culatrice scientifique" en insistant notamment sur 

les facilités de manipulation ; elle sert en fait d' 
introduction à la présentation relativement élaborée 
(30 pages) du mode programmé de la seconde partie avec 
laquelle elle fait un tout. Les différentes instruc- 
tions et fonctions BASIC utilisables y sont passées 

en revue avec de nombreux exemples à l'appui ; le lec- 
teur est le plus souvent supposé être un nouveau venu 
dans la "conduite" des ordinateurs et l'accent est 
donc mis sur la pédagogie ; les conseils spécialement 
destinés aux réophytes vont de la manière de réaliser 
un organigramme à la nécessité de positionner le ma- 
gnétophone en "lecture! quand on veut charger un pro- 
gramme. Notons cependant au passage quelques erreurs 
dans les résultats des exemples, dûs sans doute à des 
fautes d'impression, mais pouvant réanmcins déconte- 
nancer les débutants. 


La troisième partie "Trucs et astuces" s'adresse plus 
aux utilisateurs avertis. On y passe er revue les prir- 
cipales instructions du poquette en mettant en avant 
leurs originalités, de façon à pouvoir en tirer le 
meilleur parti. J'ai airsi particulièrement apprécié 
les conseils permettant d'éconcmiser des "pas" de pro- 
gramre (branchements conditionrels utilisant des va- 
leurs logiques, branchements calculés, _._.})-ou de dé- 
passer les limites de la machine (arguménts des bou- 
cles par exemple), ainsi que les astuces de présente- 
tion (par exemple affichage de messages alors que 1' 
imprimante est connectée). L'usage irhabituel des 
PRINT# et INPUT pour "télécommander" tout autre cho- 
se que l'écriture ou 1ä lecture de dennées est assez 
séduisante ; en peut imagirer d'autres utilisations 
du même type : commande d'un projecteur de diepositi- 
ves, d'une caméra, ... 


Cette utilisation est à la base de la "dictée magique" 
l'un des "morceaux choisis" de la dernière partie. 
Dans ces châpitres au titre un peu "pompeux", aux di- 
res même de l'auteur, sont rassemblés une douzaine de 
programmes typesque l'on peut classer arbitrairement 
en programmes de demonstration, spécialement destinés 
aux débutants, et programmes d'application pour tous. 
Ceux qui cherchent des programmes tout faits dans un 
but ludique ou pratique seront comblés par "l'ordina- 
teur de bord", le "pazun" ou la "gestion de portefeuil- 
le boursier". Par contre la "simulation budgétaire" 

me semble être plutôt un exercice de style et devra 
être réécrite pour s'adapter à un autre cadre ; dans 
un autre genre le "compte est bon" est un peu simplet, 
vu le titre choisi. 


Tous comptes faits ce livre s'adresse donc à la fois 
aux débutants et aux utilisateurs avertis ; malgré le 
côté parfois un peu hérissant des redites - pourtant 
bien nécessaires - l'une et l'autre de ces deux caté- 
gories de lecteurs y trouvera son compte, quitte pour 
les seconds à passer directement aux "Trucs et astu- 
ces" en sautant les deux premières parties. 

Gageons par ailleurs qu'en suivant les conseil de Di- 
dier Bicking les "débutants" finiront par devenir des 
"experts" du POCKET. 


————————————— dlain Gandossi 
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programmes 





N'y aura-t-il donc jamais de fin au raccourcissement 
de cette routine de conversion HEXA/DECI ? Il semble 
bien que non avec Roger Brousmiche qui vient encore 
de relever le défi ! 


- La ligne 1000 ci-dessous occupe 58 octets. La durée 
du calcul est de 0,15 seconde pour un hexa de 4 chif- 
fres. Explication : (N >9) vaut -1 si N>9, autrement 
il vaut O (pourtant simple, non ?) 


10 INPUT"HEXA ";A$ : GOSUB1000 : PRINT "DECI =" 
X : GOTO10 


1000 X =0:FORT=1TOLEN( A$):N=ASC(MID$(A$,I,1)-48:X=X 
*16+N+7*(N2>9):NEXT:RETURN 


Roger Brousmiche 


Suite aux articles du numéro 3 de TRACE : "les gra- 
phiques sur TRS" (p. 38) et "détectez vos mots-clés" 


Cet utilitaire peut s'avérer pratique pour examiner 
en hexadécimal et en ASCII la mémoire de votre ordi- 
nateur. Tel qu'il est écrit, il utilise 670 octets 


1 DEFINT A-Z :F=232767 :DIM T#C15) 





(p. 40), voici un court programme affichant les "to- 
ken" des instructions BASIC : 


10 FOR 1=5712 TO 6175 : P=PEEK(I) : IF 127 P PRINT 
CHR$(P); : NEXT ELSE J-J+1 : PRINT ,J+127; CHR$(P- 
128); : NEXT 


Club ADEMIR-Orléans 


PLANTEZ... VOTRE SYSTEME ! 


I1 y à différents moyens pour "planter" votre systè- 
me (si vous en trouvez d'autres, nous allons bientôt 
créer un rubrique "plantage court" !). Connaissez- 
vous celui-ci ? 


Frappez en mode commande. trois espaces suivis du ca- 
ractère apostrophe (') et terminez par ENTER (jusqu! 
ici, rien d'anormal). Recommencez encore une fois, 
pour voir... 


Pierre Baronqguel 


dont 36 pour. les chaînes de caractères (notez la pré- 
sence de l'octet de contrôle si vous craignez une er- 
reur..-)- 


FOR J=@ TO IS:READ THCJ):NEXT 


DATA @,1,2, 3,4, 5,6, 7, 8,9, À, BC, D, E, F:D$="@":INPUT"'DEBUT HEX"3D$# 
FOR J=i TO LENCDS) :A=ASCCMIDS CDS, J, 1) :A=0-48+7% CA) 57) :D=Dx1E+A 
SNEXT:FOR J=D TO F STEP 16:D$="":H=]J/256:L=J7 AND 255:REMSZ 


2 PRINT T$CH/1E2T$CH AND 15)T#$(L/16)T$(L AND 15)" "::FORK=0TDIS 
*P=PEEKCJ+K) PRINT TH(P/1E) TSCP AND 5) STRINGSCJ+K AND i, 32): 
1G= CP) 31)#CP (129) : DS=D$+CHRS(P#O—-4E#(0=D)) :NEXT:PRINT" "DS:NEXT 


: REME4 


} RUN 
DEBUT HEX? 108 

0190 A728 C319 1R4D 454D 4F52 
GiiO GOSZ 4i4k 494F 2053 4841 
B128 
Di: 
Gi4u 
Disg 





) 5549 5453 .(...MEMORY SIZE 


284C 455 - RODID SHACK LEV 
: EL II BASIC < 
..) nm 
= NE 
= At rs PRE 
Pr n 7 


J. Mével 
——_—— a 


16 - TRACE N° 6 - Juillet 1983 





MOT DE PASSE (PARTOUT) ! 


Exception faite pour NENDOS-80, les DOS sont organi- 
sés de façon à permettre l'accès à tout fichier, quel- 
que soit son degré de protection, grâce à un mot de 
passe "universel", celui-ci n'étant point divulgué 
dans la notice d'emploi. Le définition du "PASSWORD" 
sur 8 caractères alphanumériques produit quelques 
2000 milliards de combinaisons alors que le codage 
sur 2 octets seulement fait que chaque mot’ de passe 
possède environ 33 millions de synonymes. À l'aide 
d'une routine de recherche travaillant à la vitesse 
d'une combinaison par milliseconde (1/1000 de secon- 


RESTORE SUR UNE NUMERO DE LIGNE DATA 


Comme vous le savez, la commande RESTORE fait toujours 
pointer l'instruction READ sur le premier numéro de 
ligne DATA du programme. Voici une courte routine qui 
permet de faire pointer la READ sur un numéro de li- 
gne DATA donné. 


Le code source assembleur est le suivant 


205,127,10 CALL OA7FH ; passage argument USR 


229 PUSH HL ; on passe HL 

209 POP DE ; dans DE 

205,44 ,27 CALL 1B2CH cherche adr ligne DATA 
11 DEC BC (placée dans BC) 


237,67,255,64 LD (UOFFH),BC ; et que l'on range dans 
201 RET ; le pointeur READ/RES- 
TORE 


Pour l'utiliser en BASIC, je propose le mode d'emploi 
suivant qui est compatible avec toutes les configura- 
tions de mémoire (16 à 48K) et de matériel (disque ou 
cassette) 


10 ' Séquence d'initialisation 

20 ZZ$="ROUTINE BINAIRE" : AZ=-VARPTR(ZZ$) 

HO Z1=PEEK(AZ+1) : Z2=PEEK(AZ+2) : AD-Z1+256*Z2 

50 IF PEEK(16396)=201 THEN POKE 16526,Z1 : POKE 
16527,Z2 ELSE DEFUSR-AD 

60 FOR I=0 TO 13 : READ A : POKE AD+I,A : NEXT I 
70 DATA 205,127,10,229,209,205,44,27,11,237,67,255, 
64,201. 


de), i1 faudrait néanmoins 66 années pour trouver tous 
ces sésames. Faute de temps et de place, nous n'en 
donnerons donc que quelques uns 


AF19 ou RUEK ou HSWWW pour TRSDOS 2.3, NEWDOS+ et 
NEWDOS40 

B8D ou HADU ou VSVZ pour VTOS 4.0 

AFK6 ou SOURD ou PXIBM pour LDOS 5.0 

UB4 ou COLX ou US60 pour DOSPLUS 3.3 

CME3 ou HAXE ou ROU3 pour TRSDOS 1.2 sur modèle 3. 


Roger Buvat 


En pratique, on procèdera ainsi 


- Charger la chaîne ZZ$ avec la routine binaire en 
exécutant le programme ci-dessus (ne soyez pas sur- 
pris si la ligne 20 devient bizarre en la listant !) 
- Supprimer les lignes 60 et 70 

— Ecrire la suite de votre programme. 


Pour pointer sur un numéro de ligne donné, faire 


X = USR (numéro de ligne) 


Exemple 


100 DATA "ligne 100" 
110 DATA "ligne 110" 
120 DATA "ligne 120" 
130 RESTORE 


140 X=USR(110) " on pointe sur la ligne 110 
150 READ A$ ; on la lit 
160 PRINT A$ * ... et on l'affiche 
>RUN 
ligne 110 
READY 
> 
M. Maillet 


EL 
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essai matériel 





MDX-2 
l'interface d'extension 






L'interface MDX-2 
pour modèle 1, de Micro Design (Aus- 
tin Texas), est un kit proposé sous forme d'un 
circuit imprimé nu double face (30,5 x 28 cm) et d'une 
documentation de montage très complète. 


Cette documentation (en anglais) décrit sommairement 
les différents sous-ensembles composant l'interface 
Alimentation, Modem, extension mémoire, EPROM option- 
nelle, horloge temps réel, Interface Série, Interface 
parallèle, double interface pour lecteurs de cassette, 
contrôleur de disques souples. On trouve ensuite la 
liste des composants (par références, par sous-ensem- 
bles) et la nomenclature générale. 


Le chapitre suivant est le guide de montage qui décrit 
chaque opération à effectuer et permet, pas à pas, de 
câbler complètement la carte. Après avoir effectué le 
montage, la mise en route et le test de l'interface 
sont décrits dans le chapitre suivant. Chaque sous- 
ensemble est testé par un petit programme spécifique. 


On trouve ensuite une description technique des dif- 
férents sous-ensembles, avec des indications sur leur 
fonctionnement et leur programmation (adresses, états, 
dialogue), la brochure se termine par un programme en 
langage machine permettant l'utilisation de l'inter- 
face série (RS232), et par les spécifications techni- 
ques des boîtiers UART (interface série) et 1771B 
(contrôleur disquettes) ainsi que les schémas complets 
de la carte. Le circuit inprimé, de réalisation sé- 
rieuse, permet par une sérigraphie très PPÉCESS le 
repérage de tous les composants. 


Le KIT MDX-2 par la qualité de réalisation du circuit 
imprimé et de la documentation, ne devrait pas poser 
de problèmes à l'amateur désireux de se lancer dans 
cette réalisation, la seule difficulté étant de réa- 
liser des soudures propres et fines, ce qui s'acquiert 
avec un peu d'entraînement. 


Il est cependant conseillé de procéder avec méthode 
car l'opération éventuelle de dessoudage d'un compo- 
sant n'est pas conseillée et peut entraîner le décol- 
lement de pastilles ou de pistes cuivrées. 


Examinons maintenant les différents fonctions remplies 
par la carte. 

Cette carte est strictement compatible av 
Sion interface de TANDY, aussi bien sur 1 
riel que logiciel, et offre en plus 





- une interface Série RS232 pour transmission de don- 
nées en mode Asynchrone 
- un Modem 300 bauds inté 


- la possibilité de sé 
mémoire soit en RAM (mém 
moire morte). 





L'interface série utilise 
1602) que sur la carte RS 
bilité matérielle et logicieil 
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en kit 





Le Modem 300 bauds intégré, n'est malheureusement pas 
utilisable en FRANCE, car les fréquences retenues pour 
transmettre les données sur lignes téléphoniques, ne 
sont pas conformes aux standards européens (Avis V21). 
La transmission de données à 300 bauds utilise quatre 
fréquences (2 dans un sens, 2 dans l'autre) ; le ta- 
bleau suivant montre les différences 


USA FRANCE 
Fréquences 1270 HZ 980 HZ 
Emission 1070 HZ 1180 HZ 


2225 HZ 1650 HZ 


2025 HZ 1850 HZ 





Malheureusement, le boîtier MODEM MC 14412 est conçu 
pour les fréquences USA et ne peut fonctionner sur 
les fréquences européennes et à notre connaissance, 
il n'existe pas de boîtier équivalent pour les stan- 
dards européens. 


L'option EPROM en fin de mémoire, permet de rendre 
"résidents" des programmes que l'on utilise fréquem- 
ment et que l'on souhaite trouver en mémoire sans a- 
voir à les charger à chaque mise sous tension. 
L'option EPROM permet de réserver les derniers 2 K 
octets de mémoire à cet usage, en utilisant une EPROM 
de type 2716. La selection entre EPROM et RAM (mémoi- 
re vive) est réalisée par des cavaliers. Il est éga- 
lement possible de réserver 4 K octets (en utilisant 
une EPROM 2732). Il est alors nécessaire pour cela 

de couper deux pistes et d'établir deux liaisons au 
niveau de ces cavaliers. 


Les autres fonctions offertes par l'interface MDX2 
sont aussi bien sûr, celles de l'interface standard 
TANDY. Nous les passons rapidement en revue 


émoire : permet de porter la capacité 
mémoire vive à 48 K octets. 

arallèle : pour imprimante de type CEN- 
SON, OKIDATA, etc...). 

ps réel : génère une interruption toutes 













re d'effectuer un "strap" donné dans 
pour assurer un fonctionnement 
co rloge. 
ce cassette : permet le contrôle de 
enregistreurs de cassette. 
Fee Elle est en tous points 
de l'expansion TANDY. On peut 
reau q'un séparateur de données 

£ prévu (quelques circuits in- 
ER de ramener le taux 
ne valeur quasiment nulle. 











eo 





cette étude, nous dirons quelques mots 


sur la section alimentation. Elle utiiise des régula- 
teurs intégrés 18H05 7812 et 7912 et nécessite un 
transformateur externe de type sta:dard TANDY pour 
modèle 1. La section 4.4 de la notice indique comment 
réaliser l'équivalent à partir d'un transformateur 

2 x 18,7 Volts, 2 ampères. On peut s'étonner de l'ab- 
sence de diodes de protection sur les régulateurs in- 
tégrés. Gare aux coupures et remises sous tension 
trop rapidement enchaînés ! L'alimentation n'est pas 
prévue pour supporter des équipements externes (uni- 
tés de disquettes par exemple). 


- Les liaisons avec le TRS80, les unités de disquette 
et l'imprimante se font par câbles plats. Les con- 
necteurs sont à contacts étamés (et non dorés). 


- L'interface de liaison avec le TRS80 comporte quel- 
ques améliorations par rapport à l'interface TANDY. 


L'utilisation de circuits intégrés émetteurs/récep- 
teurs plus performants TULS241 avec hystérésis et la 
présence de ponts de résistances sur les signaux de 


contrôle de la mémoire (MUX RAS CAS WR) devraient é- 
liminer les problèmes rencontrés avec l'expansion TAN- 
Y, éviter l'utiiisation de câbles blindés ou ampli- 
fiés, et éventuellement permettre une longueur de câ- 
ble de liaison plus importante. (Nous ne l'avons pas 

testé mais l'essai mérite d'être tenté). 


En conclusion, nous dirons que l'interface MDX2 cons- 
titue une excellente alternative pour les possesseurs 
de TRS80 modèle 1 ou compatibles, désireux d'étendre 
les possibilités de leur micro. 


La réalisation du KIT ne pose pas de problèmes parti- 
culiers, et le bilan financier est somme toute très 
positif. À titre indicatif, le prix moyen des compo- 
sants servant à équiper la carte est de l'ordre de 
1300 F. 

Seul regret, l'impossibilité d'utiliser le MODEM in- 
tégré pour échanger des données avec des équipements 
conformes aux normes françaises. 


Henri Frère 








essal matériel 








Entre cassette et disquette: 





Ce qui surprend 
au premier contact avec l'Exatron 

Stringy Floppy c'est la grande légèreté de l'ensem- 

ble (à peine 500 grammes) associée aux dimensions ré- 

duites (150 mm x 110 mm x 60 mm) de son boîtier rec- 

tangulaire de protection. 

La face avant s'ouvre sur une fente horizontale de 

T0 mm x 5 mm, destinée à "avaler" les fameuses "ga- 

lettes" (ou Wafers en anglais), support des informa- 

tions (programmes ou données) à mémoriser. 


Comme leur nom peut le laisser supposer, ces micro- 
cassettes de format rectangulaire (70 mm x 4O mm) ont 
une épaisseur très réduite (5 mm), elles contiennent 
une très fine bande magnétique sans fin, proposée par 
le constructeur sous différentes longueurs : 5, 10, 
20, 50 et 75 pieds, permettant de stocker respective- 
ment environ 4, 8, 16, 4O et 60 K octets de programme 
ou données. L'écriture/lecture du "WAFER" s'effectue 
sur une seule face, un système de détrompage évite la 
mauvaise insertion dans l'enregistreur/lecteur, un 
petit autocollant réfléchissant blanc positionné sur 
le dessus de la "galette"! permet une protection con- 
tre toute tentative d'écriture involontaire. 


La connexion (testée sur modèle 1) est extrêmement 
aisée tant du point de vue alimentation (1 cordon 
secteur 220 V) que côté raccordement de données ({ 
se femelle 40 broches sur connecteur clavier ou ex- 
tension BUS de l'interface d'expansion). 


L'activation du dispositif se fait très simplement 
sous BASIC par SYSTEM et ? / 12345 avec affichage aus- 
sitôt d'un "message de bienvenue" indiquant que 1e 
STRINGY FLOPPY est prêt à l'utilisation. 

Le programme interne du système est contenu dans une 
EPROM aux adresses mémoires inutilisées 3000-37DE ne 
provoquant aucune interférence avec les programmes 
utilisateurs. 


la galette 





La vitesse de transfert des informations est de 800 
octets par seconde (6400 bauds = 800 x 8) à comparer 
à la vitesse max de 500 bauds sous modèle 1, soit un 
gain de vitesse de 12, ce qui par exemple donne envi- 
ron 18 secondes pour charger un programme de 14 K a- 
lors qu'il faudrait environ 4 minutes pour le même 
programme chargé par le cassettophone. 

Le gain est particulièrement spectaculaire pour les 
fichiers de données (utilisés par exemple dans les 
aventures) qui nécessitent avec cassette parfois plu- 
sieurs dizaines de minutes alors qu'avec "EXATRON 
STRINGY FLOPPY" le temps peut être ramené à quelques 
dizaines de secondes (gain pouvant atteindre 30). 


Les fichiers (programmes) sont repérés sur la bande 
par des n° allant de 1 à 99, les ordres de sauvegarde 
lecture sont très simples (@ SAVE , @ LOAD) ceci étant 
le cas es programmes BASIC, l'écriture des program- 
mes machine nécessitant l'indication supplémentaire 
des adresses de début de programme, point d'exécution 
et nombre d'octets du programme. « 


Les commandes des fichiers de données (@ CLEAR,@ OPEN, 
@ INPUT, € PRINT, @ CLOSE) permettent d'avoir une appro- 
che de gestion de fichier du type de celle rencontrée 
sous BASIC DISQUE (mais néanmoins beaucoup plus rudi- 
mentairé) plus souple que celle des fichiers élaborés 


sur cassette. 

Une dernière commande @ NEW permet d'effacer une ban- 
de (et de façon indirecte de connaître le nombre d'oc- 
tets libres restant sur la bande). 


TRACE N° 6 - Juillet 1983 - 19 


En résumé, nous sommes très loin bien sûr, de la ri- 
chesse offerte par un véritable Système d'Exploitation 
Disque (pas de répertoire etc...) mais le "STRINGY 
FLOPPY" peut être considéré comme une alternative va- 
lable à l'utilisation du disque si l'on place dans 

la balance les coûts respectifs des deux investisse- 
ments (environ moitié avec "STRINGY FLOPPY"). 


D'autre part, le distributeur nous signale l'abandon 

par Exatron du Stringy Floppy sur modèle 3 qui était 

d'un prix encore plus élevé (3495 F). 

CONCLUSION 

Le "STRINGY FLOPPY" est plus proche (par son principe 
même de stockage séquentiel) du cassettophone que de 

l'unité de disque, cependant sa vitesse de transfert 


de données (dans la mesure où la taille des program- 
mes à stocker est du même ordre de grandeur que la 


utilitaire modèle 2 


capacité de stockage du W£ 
signaler bien plus que la 
niteur qui reste tres lim 
ailleurs la très bonne fiabi 
criture/lecture vérifiée apr 










des utilisateurs de cassettes 


L'achat d'un "EXATRON STRINGY FLOPPY" nous paraît done 
un investissement raisonnable pou: un utilisateur ne 
pouvant directement s'offrir le ‘'luxe" des disques ; 
nous ne pouvons espérer qu'une Chose au niveau de sa 
distribution française, c'est une prochaine baisse de 
prix telle que celle signaléé au USA ; à cette condi- 
tion, ces "GALETTES" nous paraîtront plus digestes !!1i 


Rémi Pineau 








Renommez-les 
sans NAME! 





Les lecteurs de notre numéro 5 ont appris que l'on 
pouvait gagner PEEK et POKE en perdant OCT$ et NAME. 
Mais alors comment remplacer l'instruction <NAME "TO- 
TO" AS "LULLU"> dans un programme BASIC ? 


La première solution consiste (comme chacun sait), à 
utiliser sous BASIC la Commande DOS RENAME 


180 SYSTEM"RENAME TOTO LULU (ou TOTO TO LULU) 


L'inconvénient majeur est que la Commande RENAME n'ac- 
cepte que des constantes. 

Cette limitation peut être tournée par l'emploi (ju- 
dicieux) de PEEK et de POKE pour "composer" caractère 
par caractère les paramètres (ici TOTO LULU) de la 
commande. 

Procédé amusant, instructif mais manquant de légèreté. 


De plus RENAME(cde) gratifie l'émetteur d'un compte 
rendu d'exécution : 


TOTO:@ --> LULU 


100 ? 
sP4 UT" PS 


NOM/B  — 


128 CLEAR:CLS!I!ON ERROR GOTO 


130 GOSUER 330’-- INIT 
148 INPUT"Nom 


Auteur 


ACTUEL ‘":F1$ 
158 INPUT"'Nom NOUVEAU "3;5F2$ 


souvent utile, mais parfois disgracieux pendant l'e- 
xécution d'un programme BASIC. 


LA ROUTINE SVC "RENAME" 


Celle-ci ne travaille que sur des variables et non 
des constantes ‘“chaîne". Cet inconvénient est mineur 
puisqu'on a le loisir de faire au dernier moment : 


nnnn F1$="TOTO" : F2$= "LULU 


Le manuel précise que les 2 chaînes (ancien nom, nou- 
veau nom) doivent être fermées par un <CR>. En fait 
le caractère "ESPACE' peut également servir de déli- 
miteur. Si nous nous en tenons au manuel nous pour- 
rions avoir 


nnnx F1$=F1$+CHR$(13): F2$=-F2$+CHR$( 13) 


Voici le programme complet 


Bernard BESSE 


508 


160 Fi$=F1S+CHR#(13) :F2#=FZS$+CHR$S (13) :GOSUR 190’-— RENAME 


17@ END 


180 HHHHHHAHRRRRARARARHREHE 


198 :REM£RENAME: 


208 XX=VARPTR(F1$):GOSUR 26B@:A1{3)=XX 
218 XX=VARPTR(F2$):GOSUR 26@:A1(5)=XX 
£22Q DEFUSRI=VARPTR(A1(1)):41(@)=USR1(@) 
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230 IFA1(@)>@ THEN PRINT'Origine RENAME - ERR DOS";41(0) 
248 RETURN 

DO immense mn Em MODE 

268 =REM<ADR?: 

27@ XX!'=XX+1:GOSUR 308: X1=XX:XX!=XX+1:GOSUR 308:X2=XX 
280 XX'=PEEK(X1)+256KxPEER(X2) =GOSUE 300:RETURN 
POUTETRRDEMEMEMEME MESSE 

308 :REM<OVER: 

31G IF XX'<32768 THEN XX=XX!:RETURN ELSE XX=XX!-65536:RETURN 
70 =sesssessasesammmmsems— 

330 :REM£INIT: 

34Q DEFINTA-Z 


LS [ 
360 GOSUR Z6@’---(Appel bidon) 
LE ee 


380 DATA 12094 : 

390 DATA 8448 ‘ 

488 DATA G@ 5 

41@ DATA 4352 : 

428 DATA @ :? 2000 
43Q DATA Z07 : 

440 DATA —-156ié6 : 

45Q DATA 15099 : 

468 * 

479 41i=8:DIMAI(AÏ) :FORK=ITOAÏ : READAI (K) =NEXTK 
488 RETURN 

PTT PR 

500 :REM<ERR: 

510 :ON ERROR GOTO @ 

5:@ ? 

510 KKKKKEX 


On voit comment la séquence d'appel en nombre entiers L'utilisation de la variable d'indice G<A1(9)>, for- 
permet le passage des paramètres (adresses de F1$ et cément déjà connue du programme est une astuce que 
de F2$). nous tenons de Jean LE FLOUR (de 1'A.U.T.). 

Par ailleurs, notons qu'il ne faut pas indroduire de 

variable nouvelle lors des calculs d'adresses, ou en- Notons pour finir, que contrairement à la commande 
tre le DEFUSRI et l'USR1. En effet, l'introduction DOS RENAME, la routine SVC RENAME n'affiche pas de 

de nouvelles variables modifie les adresses des va- compte-rendu d'exécution. Néanmoins, si l'on perçoit 
riables déjà connues ainsi que celles des pointeurs des ronflements puissants provenant du "Drive", il 

de chaînes. L'appel "BIDON" au sous/programme de cal- peut être tenu pour probable qu'il s'est passé quel- 
cul d'adresses, a pour but de faire connaître au pro- que chose... 


gramme l'existence des variables présentes dans ce 


sous-programme. EP na BE SSe 








jeu 


Soyez un peu taquin 


Maintenant que tout le monde a son "cube" ou presque, 
vous souvenez-vous encore du Taquin qui nous a occupé 
pendant nos heures de solitude ? Rien que 15 pions nu- 
mérotés à remettre dans l'ordre croissant, en passant 
par une seule case vide. Vous vous souvenez ? Il est 
enfoui quelque part au grenier ? Qu'à cela ne tienne, 
votre TRS est sûrement plus accessible lui, et peut 
très bien le remplacer... 






Ce programme a été mis au point sur un modèle 3 équi- 
pé de disquette (emploi de l'instruction DEF FN du 


BRAVO, VOUS AVEZ REUSSI EN 194 COUPS. 
UNE AUTRE PARTIE ? 
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BASIC disque) mais peut tourner sans problème sur mo- pas de problème non plus moyennant les quelques chan- 


dèle 1 (C'est vrai, nous l'avons essayé ! NDLR). Il gement décrits ci-dessous. 
n'utilise aucun truc particulier : c'est du BASIC, 
tout simplement. Pour ceux qui n'ont pas de disquette, Bon amusement à tous, petits et grands ! 


Lignes à modifier pour l'utilisation en BASIC cassette : 


30 ‘ version BASIC 2 cassette E2 

505 1=15368+(1x192)+(Jx9):REM8E 

510 IF T(l:J)=16 THEN POKE Z232 : POKE 2+27:37 : GOTO 550:REM36 
920 IF T(IrJ)<10 THEN POKE Zr32 : E=T(Il:J) ELSE POKE Zr49 : E=T( 
1:)3)-10:REMS54 

530 E=E+48:REM54 

540 POKE Z+2:E:REM67 

745 1=153698+(X#192)+(Yx9):REM7F 

750 IF T{(X2Y)<10 THEN POKE Z292 : E=T(X7Y) ELSE POKE Z749 
X2Y)-10:REM14 

760 E=E+48:REMSE 

770 POKE Z+2E:REM80 

785 1=-153868+(X#192)+(Y+x9):REMS6 

790 POKE Z:32 3 POKE Z+2:132:REM76 


DEFINT C-T : DIM T(4:4)2Ri16):FEMERB 
DEF FNP(X:Y)=15368+(X#192:+{Y#93; :REMBA 
CLS'REMS& 
PRINT CHR#(23) s: FOR I=1 TO 5 : PRINT : NEXT I:REM7D 
PEIHT TAB(10) “JEU DU TAGUIN‘:REM39 
j FOR 1=1 T0 & : PRINT : NEXT I1:REMO3 
PRINT "VOULEZ-VOUS DES EXPLICATIONS ?":REMAD 
RS=INKEYS 2 IF R$="" THEN SO:REMO7 
CLS 3 IF R$<}"°0" THEN Z40:REM3C 
PRINT * LE JEU EST UN TARLEAU CONTENANT 15 PIONS NUMEROTES 
DE 1 À 15.":REMBO 
TU PRINT: LE BUT DU JEU EST DE LES FLACER EN ORDRE CROISSANT 
: EN':REMDS 
130 PRINT “DEPLACANT SUCCESSIVEMENT UN JETON À LA FOIS: VERS Lé 
CASE":REM94 
140 PRINT “VIDE QUI LUI EST CONTIGUE.*:REMOS 
150 PRINT:REMBS 
160 PRINT "CETTE DERNIERE SERA FIN&LEMENT CONSIDEREE COMME PRENA 
NT LA":REMAZ 
170 PRINT "VALEUR 16 (SOIT COIN INFERIEUR DROITi.":REMIS 
180 PRINT:REMSA 
190 PRINT ‘ LES DEPLACEMENTS S'EFFECTUENT EN UTILISANT LES 4 F 
LECHES":REM2E 
00 PRINT ‘DU CLAVIER: CELLES-CI REPRESENTANT LE MOUVEMENT FAIT 
à LE‘:REMS8Z 
PRINT “PION FOUR SE METTRE À LA PLACE DE LA CASE VIDE.'":REMS 


PRINT : PRINT : PRINT “FOUR JOUER: APPUYEZ SUR UNE TOUCHE... 
"3REMFD 
230 R$= INKEYS : IF R&=°* THEN Z3D0:RE 





Lai Li loi Bi 
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HEXT ItRÈMES 

Rii8)=168:REMéS 

FOR I1=1 TO &:REHES 

20 FOR J=i TO 4:REMDS 

70 T(IrJ)=RC(I-1)#4+)):REMFE 

QG NEXT Jj2I1:REM3D 

X=4 : Y=4:REA7C 

0 DESSIN SDURTEUCSE 

FOR 1=31 TO 96:REMS6 

SAS RS EURE EN ERS ECS TS TEEN S ETC TS ENCRES NS 
HO SE MMS ERCIr 230 SERIE AE RE EREMEE 
#30 NEXÂT I:REMS1 

440 FOR 1=21 T0 95 STEP 16:REMES 

450 FOR J=7 TO 40:REM4S 





D fe 8" ES LT La LA IX 
PJ 0 0 CG ss L 


Fri 





HONOSEM Er Ju SETOIFI 7) REMDES 

470 NEXT J:I1*REMES 

480 7 MISE EN PLACE DES PIGNS F 

450 FOR I1=1 T9 4:REMSà 

o0D FOR J=i TO 4&:REM49 

510 IF T(lrJ)=16 THEN POKE FNP(I:1)232 : POKE (FNP{I:2J)+2):92 : 
GOTO SSU:REMSD 

520 IF T(l:J)<i0 THEN POKE FNP(I:J)r32 : E=T(l12J) ELSE POKE FNP( 
Pr EN EN ELEIOEREMEC 

230 E=E+#8:REMSé 

J40 PFOKE CFNP(I:43)+252:E:REM524 

SAR NEXT 7 ISREMNS2 

560 ? CONTROLE ORDRE OÙ F4S CE 

570 FL=D:REMXD 

580 FOR 1=1 TO 4:REHF7 

590 FOR J=i TO 4: REMEE 

800 1F I=i GND j=1 THEN K=T{lz:Ji : GGTO GSO:REMFS8 
210 IF T(I:4i<€K THEN Fe : I=4 : J=4:REMOD 

&20 K=Til;Jj)"REMOE 

430 EXT J?1:REM42 

640 IF FL=Ù THEN 810:REMFS 

850 ? BTTENTE D'UNE COMMÉNGE 74 

hi RS=INKEYS : IF R$=°" THEN 660:REM98 

870 D=0 : F=OD'REMSZ 


880 IF ASCIRSi=10 AND X>i THEN D=-1:REMC3 

690 IF ASC(IRSI=91 AND X<4 THEN D=i:REM/9 

700 IF ASC(R#i=8 AND Y£4 THEN F=i:REMSE 

710 IF ASC(RS)=9 AND Yi THEN F=-i:REMCA 

720 IF D=0 AND F=0 THEN FRINT 4975:"ERREUR"5 : FOR T=1 TO 200 : 
HEXT T : PRINT 4975:° “3; 3 GOTO 650:REMD1 

730 C=C+1:REMCE 

740 T{X2Y)=T(X+D2Y+F)2:REMID 

750 IF T(X2Y)€10 THEN POKE FNF(X:Y)232 : E=T(X:Y) ELSE FOKE FNP( 
X2Y)249 : E=T(X:Y)-10:REMSO 

760 E=E+48:REM6E 

770 POKE (FNP(X2Y)+2):E:REM4D 

780 X=X+D : V=Y+F : T(X:Y)=16:REMSF 

790 POKE FNP(XrY):192 : POKE (FNP(X2Y)+2)232:REM6I 

800 GOTO S60:FREMRS 

810 ‘ EN ORDRE Da 

820 IF C=0 THEN PRINT G900? ‘VOTRE JEU ETAIT RESTE EN ORDRE: IL F 
AUT LE MELANGER..." : FOR T=1 TO 200 : NEXT T : GOTO Z40:REM83 
830 PRINT 4900:”BRAVO: VOUS AVEZ REUSSI EN 3:3C3 “COUPS.”:REM78 
880 IF Ci=0 THEN Ci=C : PRINT 4965:"MEILLEUR SCORE" :C13 “COUPS, 
“_: GOTO 870:REMFO 

850 IF C<C1 THEN C1=C : PRINT G965:"NOUVEAU MEILLEUR SCORE” : GO 
TO S870:REMSS 

840 PRINT 49757" MEILLEUR SCORE" :Ci: "COUPS": : IF C=Ci THEN PRI 
NT * EGALE!";:REMFD 

870 FOR T=1 TO 500 : NEXT T:REMSS 

280 PRINT @900; ‘UNE AUTRE PARTIE 7": STRINGS(297" "):REMFA 

890 PRINT:REMDI 

SO0 R$=INKEYS : IF R$="" THEN 9O0:REMAA 

S10 IF R$=°N" THEN PRINT ‘AU REVOIR..." : END ELSE ?40:REM?D 


L. et C. Nicolai 
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graphiques 


Portez à l'écran «RACE : 
votre logotype 








Voici un petit programme d'aide à la réalisation de 
votre logo. Placé en tête de vos programmes, ceux-ci 
auront un caractère personnel. 


I1 vous faudra tout d'abord choisir un dessin se prê- 
tant bien à la transcription en pavés graphiques. 
Pour ce faire, aidez-vous de la grille d'écran donnée 
en annexe du manuel Tandy. 

En lançant le programme, la liste des commandes appa- 
raît à l'écran. Voici quelques explications. 


La syntaxe d'une commande graphique est la suivante: 


FD core Tout Ee> 


ou <p> désigne un nombre représentant le codage d'un 
pavé graphique (voir plus loin), <c>un numéro de co- 
lonne entre 0 et 63, <17> un numéro de ligne entre 0 
et 15 et <A ou E>une commande pour Allumer ou Etein- 
dre les éléments du pavé décrit. Le codage du pavé 
est représenté ainsi : 





Pour allumer les éléments 1, 4 et 5 par exemple, à 
l'intersection de la colonne 10 et de la ligne 4, la 
commande graphique sera : 


145,10,4,A 

Pour allumer tout le pavé : 123456,10,4,A 

Si l'on désire écrire du texte, le principe sera peu 
différent 

9 , <colonne> , <ligne>,<A ou E> 


le texte se terminera par un appui sur la touche guil- 
lemet. 


Voici quelques commandes complémentaires : 










1 DEFSTR A:REM26 
2 AB(0) 


HÉHEREESEE I REMEI 


HLHHHEEEXE ST RENDE 





LHHEEERSEECIREMNRE 
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ZÉHREMEEREELEEEÉESEEELSESE 
HÉKHEKERÉKRÉEKKÉERÉEEREEEEREELELÉEELEELESESÉEEELEEÉEESSSE 


LÉREFIEEEESESESEEEST 


3 ABIVI=CHELREREEEELEREEELEEEEELEEESEEEE + - + E à 
KÉHRÉEEELÉELEÉELLKEREÉÉREÉEEÉELILELSEELEEEELLIEEEELIELESESEEE: 


4 BBITI=CHHEREEEREREEEEEEESEELREE 


- - 
LÉHEELELELEESE-EIELELLILÉIEELLLEEELEEERS 


HÉÉÉERESEEEREEEÉÉEERELEELÉÉELEEEE 
FARRÉEEEE NC RENDD 
5 QRUSI='HMEEREEEEEEELEEELEEEEEE 


< 
de 
\‘ 
k 
4 We 
We 
4< 
mi We 
de 
\« 
di 
À 
on 
4 
d< 
(0 
À° 
de 
de 


HHHKKKELELÉEEREREEIELRERESÉEEESELEISE 


—- la touche CLEAR annule la commande en cour, 

- la flèche à gauche efface Le dernier élément affi- 
ché : 

- les flèches à droite et vers le bas répètent dans 
l'une de ces deux directions le dernier pavé affi- 


I inverse la vidéo (ou la rétablit), 
- R efface tout l'écran (remise à zéro), 

C convertit le contenu de l'écran en lignes BASIC, 
termine le programme (Stop). 


1 
La 


MODE D'EMPLOI 


Après avoir entré et sauvé le programme LOGO, lancez- 
le et appuyez sur une touche quelconque pour passer 
la description des commandes. Pressez la touche R 
pour effacer l'écran. 

Lorsque votre logo est composé, frappez la touche C 
le caractère "C" apparaît en bas et à droite de l'é- 
cran indiquant la pñase de chargement des lignes BA- 
SIC. Après disparition du "C", frappez sur "S" (stop). 
Il ne reste plus en mémoire que les lignes utiles (1 
à 9) contenant votre logo que vous pourrez placer en 
tête de vos programmes. 


QUELQUES PRECISIONS 


Les lignes 2 à 8 sont composées de 128 étoiles (*), 
la ligne 9 de 127 étoiles, soit 1023 octets composant 
l'écran. Le 1024 ème n'est pas utilisé pour éviter 
une remontée de l'image vers le haut (scrolling). 


Vous pouvez également modifier un logo existant si 
vous disposez de la commande MERGE (fusion de pro- 
grammes) ou d'un utilitaire remplissant cette fonc- 
tion. Il suffira alors de charger LOGO en mémoire 
puis de le "merger" avec les lignes 1 à 9 du logo à 
modifier. Dans ce dernier cas, ne pas employer la 


“pu 


commande MR 













ERÉEEREESESEERARERERÉETÉÉ 











b ABCA)I= KENERERREREEEEREESEEERÉÉEEÉSEEERRÉELEEESEREEESRÉÉRERÉÉEEEEE 
RERHEHEHEERERÉÉEEESEEEEERÉEEEEERESEEEEÉERESEEEMEERERÉEERSÉEEELELEELELELSX 
HHHEEHESE IRENMDS 
FT ABISIZÉRREREEEERSEESEERELEEEEEELMELLEXSRENAESÉENRÉSEESEEENELLELE 
HAÉKKHEREHERÉEEÉEEÉEREELELEELERRERRENÉERÉÉÉESESEREÉÉÉÉEREERÉELÉELEELEEEX 
HHKESEEES CI REMDT 
B ABCbI= HEEEEEEENEEHELELRERERELELELEEREESERSEÉÉELSESSEELESAESX 
RER RE REED DE DIE NEED DE IEEE NEED DE HE NEED DE IEEE DEEE EE EEE RER NX kX: 
HEREHEESE UT REMDS 
9 ABCT)=KEREREREEEEREXEERELESEEEMESÉEEEEESERÉEENSÉREESESSE 
RÉHHERREEEEEEEHEEEELEEREEKÉRÉSELEERELEENEREREEELAEXE 
HERHHEHET ©: FOR I=D TO 7 : PRINT 4B(I1): : NEXT L:REMB? 
10 GOTO 3é60:REMDO 
20 L=L+1 : IF L>1022 THEN L=1022:REM?3 
30 RETURN:REMSD 
40 L=L+63 : IF L>1027 THEN L=10E7:REMD7 
30 PRINT GL:CHRS(K)3:REMTS 
60 GOSUE 20 : J=0:REM4S 
70 AA="":REMAF 
80 A=INKEYS : IF A="" THEN SB0:REM7C 

à 7 | 















100 IF = TI 
110 IF ASC(A4:) R] : GOTG 6C:REMSE 
120 IF ASC(AI=S1 SÛR 
130 IF ÂASC(A)=10 THEN 40:REMO3 
140 IF A="C" THEN 3O0:REMEE 
ke } 


"1" THEN X=USI 
Fi THENSCEES: 
EAEN- CLS: E 

f)=5 THEN PRINT ë 
5 COTO BOIREMXC 

2 Jet: GO01027D: eur 

THEN GGBE 250 
si Eu LEHEBCUN I: 

SUB ZSO:REMDS 
H 


D 





Le 
.[ 
Rt 
LT 







CE 

in 

1 

bel 

7) 

ss. (f 

Te OL Le Te TL Fe BELLE TD 
ee Te 


HU Preis DU Il 


Fi 
[ul 
(pu 
T 
co ANNEES 


1 D it UC Le D -— 


bot 
eu de 
mel 
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Cane nr 
(y 
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mt TI 11 


Fi 
2 
(a, 
Re) 
(54 
Lie 


Fu 
+ 
[mel 
TI tt 


Fi 

en 

(| 

[Er frs 7 
UT es NN Tes > 


He ZFD:REMEC 
50 CiAï=: D:REMÉE 

290 PRINT 4L> 5: GO 2) 5: GOTO 770 
300 POKE 1838 3:67 : 2 
(I)}) =: K=FEEKIK+I)+P 
Li «= K=K+1 : NEXT L Ë + 
JC NEXFT I : POKE 16382 : GOTO &U:REMS4E 
920 IF PEEK(18396)3=201 THEN PGKE 14576; 
EFUSR=3TOO0:RENFO 

330 FOR I=3?000 10 32059 : RESD R FOK 
340 DÂTÉ 33:03:60; 1:0r84:126:554:57:95:7 
3729072083: 184311929353: 11:171:176r323? 

350 RETURNIREMOF 

360 CLS : PRINT “CHARGEUR DE LOGO : DEFINT E-7 : COSUE 3%0:REMHS 
E 

370 PRINT'- DEFINITION DU PA 
SOOLPRENT ENS EC PRINT TS 
390 FRINT ‘- SYNTAXE D' ECRITURE ‘D’ üf 
INT “CODE(S) DE À À 6:FOSITION HORIZ DE O0 4 &# 
OÙ À CALLUME OÙ ETEINT) ":REM94 

400 PRINT : PRINT “CLEAR=EFFACEMENT COMMSNDE EN COURS : PRINT 





ver A rc 
oc 
+ 
ee 
) 
T 
#2 ri | 
Fi 
ee 
LE PA 
mi 
er 16 





cel 





IGGE E ) 
FRONT 5 ":REN # 
= S 


VERT DE D" 1 
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6 | 


gas (Of res 


. 
I 


tie 
8litsh 








utilitaire 


PAPIER 


BCE 44 # a LE 
EE jU À RE 


FI Es Ov es ET ET 7 


MP QUO eu 


Rémi Piette 





Un mini-moniteur 
en Basic 





Il est parfois pratique d'écrire un petit programme 
en langage machine sans pour cela utiliser l'éditeur 
assembleur (EDTASM par exemple). Peut-être ne l'avez- 
vous pas, d'ailleurs ? On doit pour cela utiliser des 
POKES mais la conversion des valeurs hexadécimales en 
base 10 est longue et fastidieuse. 


Le programme BASIC que je vous propose permet d'écri- 
re directement en hexa ou en décimal avec en prime 
les commandes suivantes 


- conversion HEXA/DECI et DECI/HEXA 

- DUMP en ASCII ou en hexa + ASCII 

- protection d'une zone mémoire où sera placée la 
routine ! 


NOTA : cette dernière commande doit être impérative- 
ment employée AVANT de commencer l'écriture de la 
routine ! 


Toutes les valeurs introduites sont implicitemen 
sidérées comme étant exprimées en hexad 
peuvent optionnellement se i 
H). Une valeur décimale devra 
ractère D. 





par 








ATTENTION : si vous voulez in 
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le (car se terminant par un D). 


Pour écrire des valeurs en mémoire (2, 4B, 12, D par 
exemple), il faut commencer par placer le pointeur à 
l'adresse choisie. Cela se fait simplement par la com- 
mande ORG qui fixe l'adresse d'origine. Exemple : 


SIZE FFOO 
ORG FFO0 





2 

2B 

12 

DH 

Les © sans être précédés d'une comman- 
de se ans cette zone, le pointeur étant 
incrémenté à chaq ue introduction. 


déci/hexa et hexa/déci se font respec- 
mandes CVDH et CVHD. 








D ——— ee 
pe MINI MONITEUR - Version 1.0 CRE 
3 ‘ (C) 1983 TRACE et Gilles Vollant FD 
Go rep C 
5 * Confiauration : AA 2: 
6 modele 1 ou 37: VGS j FA 
Fe 16 a 48K; disaue ou cassette ‘ F9 
RO ee cure RS ee D te ne D em 0e ; F8 


10 CLEAR 500 : RUN 220:REM4D 

20 IF W$<="9" THEN W=VAL(W$) : RETURN:REM37 

30 IF W$="0" THEN W=0 : RETURN ELSE W=ASC(W$)-55 : RETURN:REMBD 

4D H$="" : REM CONVERSION N2 -> H$ (SUR 16 BIT) 53 

90 IF N2<0 THEN N2=N2+65536 : REM SI N2 EST SIGNE (<0) ON LE TRA 

NSFORME EN NON-SIGNE #44 

80 H$=MIDS(H1$7(N2/40986)+121) : N1=N2-( INT(N2/4096)#4096 ):REMB 

pa) 

70 H$=H$+MIDÉS(H1$7 (N1/256)+121) : N1=N1-C INTIN1/256)#256 ):REME 
= 

80 H$=H$S+MIDÉ(H1$ 3 (N1/16)+171) : NIi=N1-C INT(N1/16)% 16) :REM7F 
90 H$=H$+MID$(H1$7 (N1)+121) : RETURN:REM21 

100 REM CONVERSION N2 -> H$ (SUR 8 BIT) D6 

110 H$=MIDS(H1$7 (N2/16)+1:1) : NI1=N2-(INT(INZ/16)#16) : H$=H$+MID 
SCH1H2N1+121) : RETURN:REM29 

120 REM EN ENTREE X$=nn FINI PAR @D' EN HEXA; SINON PAR RIEN OU 
dés C7 

130 REM EN SORTIE : X = nn B&8 

140 IF RIGHT$#(X#:1)="D" THEN X=VAL(X$) : IF X<0 THEN X=X+65536 : 
RETURN ELSE RETURN : REM SI NUMERIQUE 33 

150 IF RIGHT$(X$21)="H" THEN XS$S=LEFT$(X$2LEN(X$)-1):REM8C 


160 X$="0000"+X$ : NS=RIGHTS(XS:4):REMAI 
170 US$=LEFTS(XS71) : GOSUB 20 : X=(W*4096) :REMD& SOMME 
180 US$=MID#(X#:271) : GOSUR 20 : X=(W*256)+X:REMAD one Ne 
190 UWU$=MIDS(X$»31) : GOSUB 20 : X=(W*16)+X:REMD8 Le 
200 W$=MIDS(X#:41) : GOSUB 20 : X=X+W:REMS4 ON 

210 RETURN:REM9C ROLE 

220 GOSUB 510 : CLS:REM9F 

230 PRINT "MINI MONITEUR TRS-80 MODELE 1-3 & VIDEO GENIE 1 1 
& À 48 K'":REM{A 

240 PRINT "VERSION 1.0 28/02/83":REMDO 

250 PRINT "AUTEUR : Gilles VOLLANT COPYRIGHT À 
983 TRACE” : PRINT:REM97 

260 PRINT "COMMANDES :” : PRINT:REM48 

270 PRINT "ORG £€ADR>  €VALEUR> » DUMPH > DUMPH <LG>":REMEC 


280 PRINT "DUMPA » CV DH y CV HD 7 SIZE <ADR>” : PRINT : 
PRINT:REM48 
290 PRINT "ADR POINTEUR = "3 : N2=AT : GOSUB 40 : PRINT H$:3°H 


SCHR$ (30): :REM8F 

300 C$="":REMS3 

3109 INPUT” COMMANDE ==} "3C$ : IF C$=STRING$(LEN(C$)}232) THEN 
290:REMA3 - 

320 IF RIGHT$(CH71)=CHR$(32) THEN C$=LEFT$(CH>LEN(C$)-1) : GOTO 
320:REMBS 

330 IF C#$="CV DH” OR C$="CVDH”" THEN GOSUB 530 : GOTO 290:REMB4 
340 IF C$="CV HD'OR C$="CVHD” THEN GOSUB 580 : GOTO 290:REMAS 
350 IF C$="DUMPA" THEN GOSUB 650 : GOTO 290:REMC3 

360 IF LEFT$(C$:5)="DUMPH" THEN GOSUB 700 : GOTO 290:REMOC 

370 IF LEFT$(C$r4)="SIZE" THEN 84D0:REM34 

380 IF LEFT$(C$:3)="ORG"THEN GOSUB 930 : GOTO 290:REM8B 

390 IF LEN(C#)=3 AND LEFT$(C#:1)=""" AND MID$(C#:3)=""" THEN X=A 
SC(MID$(C#:2)) : GOTO 46D0:REM46 
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400 FOR I=1 TO LEN(CS) : M$=MID$(C$21I 7 1) :REM33 

410 IF M$="H" OR M$="D" THEN 450:REM0OO 

420 IF M$>°F" THEN S5SO0:REM9E 

430 IF M$<”0”" THEN S00:REMA8 

440 1F M$>"9" AND M$<"A" THEN SOO:REMF9 

450 NEXT : X$=C$ : GOSUB 140 : IF X3255 OR X<O THEN SOO:REM43 
460 M=AT =: IF W>332767 THEN W=W-65536:REM51 


470 POKE WrX : AT=AT+1:REM66 Some 

480 IF AT=65536 THEN AT-0:REMB9 of. A 

490 GOTO 290:REMED Um 
à 2 
ZROTE 


500 PRINT"COMMANDE INVALIDE” : GOTO 290:REM23 

310 R1$="0123456789ARCDEF" : H1$=R1$ : IV$=".":REMOS 
320 RETURN'REM6#4 

330 N2=0 : INPUT “NOMBRE DECIMAL A CONVERTIR (NON TERMINE PAR <D 
>) "3N2 : N?2=INT(N2):REMCD 

540 IF N2<-32767 OR N2>65535 THEN PRINT'OVERFLOW” : RETURN:REMF7 





550 IF N?2€32768 AND N2>-14 THEN PRINT STR$S(N2)"D = ”: : GOSUB 40 
5 PRINT H$:"H" : RETURN:REM89 

560 IF N22332767 THEN N?2=N?2-655364:REM6C 

570 PRINT STR$S(IN2)"D = ":STRS$S(N2+65536)3:"D + 65536D = "3; : GOSUR 
BO:PRINT H$:3"H" : RETURN:REMES 

580 X$="" : INPUT °NBRE HEXA À CONVERTIR “:3X#:REM1D 

990 IF RIGHTH(XHr1)=CHRS(32) THEN XS=LEFTS(X$2LEN(X$#)-1) : GOTO 
990 : REM ENLEVE SPACE À LA FIN #4cC 

600 IF RIGHT$({(X$:1)="D" THEN S20:REM30 

810 IF RICHTS(XS:1)<€>"H" THEN X$=X$6+"H":REMCZ 

820 T$=XS : GOSUR 140 : X$=T$ : PRINT X$3" = ": : IF X<32768 THE 

N PRINT STR$(X):3"D” : RETURN:REMSE 

830 PRINT STR$(X):3"D + 65536D = "3STR$S(X-65536)3: "D" : RETURN:REN 

83 

640 REM DUMPA BE 

650 INPUT "ADR DEBUT DUMP "5X$ : GOSURB 140:REMOF 

660 CLS : POKE 16383:97:REMSA 

670 FOR I=X TO X+980 : IF 1>32767 THEN K=I1-65536 ELSE K=I:REMB7 

680 K=PEEK(K) : IF K>191 OR K£37 THEN PRINT IV$:; ELSE PRINT CHR$ 
(K)5=:REM10 

690 NEXT : RETURN:REMF9 

700 X$=MID$(C$:6):REMDD 

710 IF LEFTH(XH71)=CHR$(32) THEN X$=MID#(X$:2) : GOTO 710:REM66 
720 IF RIGHT$S(XH:1)=CHR$(32) THEN X$#=LEFT#(XH?LEN(X#)-1) : GOTO 

720:REMCF 

730 IF X$="" THEN CLS : X=14#16 ELSE GOSUB 140:REMBB 

740 LN=X:REMS53 

750 X$="" : INPUT “ADR DEBUT DUMP HEXA ":X$ : GOSUB 140:REMB6 

760 IF LN=14#16 THEN CLS:REMIF 

770 FOR I=X TO X+LN STEP 16:RÈEMS5S 

780 A$="" : FOR J=I TO I+15:REM17 

790 K=J : IF J>32767 THEN K=K-65536:REM21 

800 K=PEEK(K) : N?2=K : GOSUB 110:REM05 

810 PRINT H$:CHR$(32)3 : IF K>191 OR K<32 THEN A$=A$+IV$ ELSE A$ 
=AS+CHRS(KI:REMEF 

820 NEXT : PRINT A$: : IF POS(O)<>0 PRINT : NEXT : RETURN ELSE N 

EXT : RETURN:IREMESS 

830 REM "SIZE" F9 

840 X$=MIDS(CH:5):REMS1 
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850 IF LEFT$(X$21)=CHR$(32) THEN X$=MID$(X$?2) : GOTO 850:REMD4 
860 IF RIGHT$S(X$:1)=CHR$(32)} THEN X$=LEFT$#(X$:LENC(X#)-1) : GOTO 


860:REM3D 

870 GOSUR 140:REM71 

880 Y=X-3 : POKE 16562:X/256 : 
CLEAR 600:REM6E8 


POKE 16561X-(PEEK(1865862)#256) : 


890 AT=PEEK(16561)+(PEEK(16562)#256)+3:REM1C 


900 GOSUB S10:REMS2 
910 GOTO 290:REM47 
920 REM  “ORG” 9F 
930 X$=MID$(CH:24):REMFE 


740 IF LEFT$(X$:1)=CHR$(32) THEN X$=MID$(X#:2) : GOTO 940:REM7A 
950 IF RICHT$S(X$:1)=CHR$(32) THEN XS$=LEFTS$(XS2LEN(X#)-1) : GOTO 


950:REMES 
360 GOSUB 140:REM17 
970 AT=X:RETURN:IREMAS 








jeu 


Gilles Vollant 








Le casse-briques 
reconstructeur 





“"Casse-briques" est un jeu écrit en BASIC niveau 2, 
pour TRS-80 modèle 1 ou 3, 16 à 48k, cassette ou dis- 
quette. Il est axé sur l'attention et la rapidité et 
prouve que le BASIC du TRS (tant critiqué pour sa len- 
teur) peut encore étonner beaucoup de monde. 


Au départ, votre nom est demandé afin de mettre à jour 
le meilleur score qui figurera sur l'écran. Ensuite, 
sept murs - parfois moins - sont dessinés à des en- 
droits calculés aléatoirement. Vous disposez d'un ca- 
non mobile qui exécute un mouvement continuel de va 

et vient. En frappant sur une touche quelconque (s 


f 


HI-SCORE ETABLI PAR À 





BREAK), une balle s'échappe du canon et casse la pre- 
mière brique du premier mur qu'elle rencontre. Pour 
corser la difficulté, une nouvelle brique s'ajoute 
alors au hasard dans le jeu. De plus, tous les cinq 
coups, un nouveau mur peut réapparaître... Le score 
est affiché en permanence en bas de l'écran. Il se 
calcule de la manière suivante : 


— vous avez 1000 points au départ 

- un point est retiré à chaque tir 

- deux points sont retirés à chaque fois que le canon 
dans son mouvement atteint l'une des deux parois. 


Le programme étant sonore, il est conseillé de raccor- 
der un amplificateur sur la sortie cassette. 

La perception du lancement d'une balle est assurée 

par une analyse du clavier : PEEK(15359), qui diffère 
de zéro lorsqu'une touche est enfoncée. L'impact de 

la balle est cherché par la fonction POINT(X,Y) et la 
partie se termine lorsque X atteint une valeur nulle. 
Un message vous propose alors de rejouer une autre 
partie. 


Par précaution, et avant de vous éviter un "mémory 
size ?", un calcul est effectué sur les DATA contenant 
la routine sonore. En cas d'erreur, le programme pas- 
sera de lui-même en mode EDIT. La routine sonore étant 
chargée dans la chaîne ZZ$, il est conseillé de sau- 
ver le programme avant exécution. ATTENTION : Z2Z$ doit 
obligatoirement contenir 15 caractères ("ROUTINE SO- 
nore*" par exemple) ! 


iz 
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D ——— ë FF 

DE CSACSRSUE SmNinen fi VUE : FE 
Be : FD 

“s {C} TRACE et Dominiaue Delcoigne ; F£ 

ROSE ER SE MR RU ET Te NT 

& ‘ Configuration tyre : Re 

ri modele 1 ou 3 a 

8 ‘ 1ô a 48k: disaue ou K7 ”? F8 
D ——— 3 F7 

10 CLEAR 1000:REM7D 

ae Generateur de bruits EC 

30 M$S=STRINGS(1620) : FOR I=0 TO 14 : READ DA : S0=SO0+DA : NEXT 
: RESTORE:REMIF 

40 IF S0€32077 PRINT ‘!1 ERREUR DANS LA LIGNE 800 !'!° : EDIT 800 
:REMBS 


50 2Z$="ROUTINE SONORE+" : AZ=VARPTR(ZZHS):REM?4 

80 ZI=PEEK(AZ+1) : Z?2=PEEK(AZ+2) : AD=71+256#72:REM46 

70 IF PEEK(16396)=201 THEN POKE 16526221 : POKE 16527322 ELSE DE 
FUSR=8D : CMD°'T':REMES 

80 FOR I=0 TO 14:REMEF 

60 READ M:REMCE 

100 POKE A4D+I:M:REMD7 

110 NEXT I:REMC? 

{20 ” Presentation 88 
130 CLS:REMFA 

140 GOSUE 590 : CLS:REME7 

155 Initialisation 64 
160 A=0 : H=0 : DB=0 : VD=0 : A2=0 : Hi=0 : Y=S5S:REMF4 
170 RESTORE 3: FOR I=0 TO 14 : READ CH : NEXT:REM8A 





180 IF HS<>0 FRINT G0:” HI-SCORE ETABLI FAR “ N$ 3 ELSE PK 
INT @10:"CASSE - BRIQUES # #4 POKE 15400239 : FO 
R I=0 TG 19 : READ CH : POKE 15401+1:CH : NEXT:REM4F 

190 ‘ Cadre 8? 

200 FOR I1=127 TO Q STEP -4 : SET({I:3) : SET(I:493) : POKE AD+11:4 
5 : X=USR(30) : NEXT:REMDé | 

210 FOR L=3 TO 23 : SET(Q:L) : SET(42L) s: POKE AD+11:45 : X=USR( 
30} : SET(O:486-L) : SET(di:46-L) : POKE AD+11745 : X=USR(30) : NE 
XT:REMDC 

PTE p Formation des murs de derart 24 


230 FOR X=0 TO & : COSUB 330:REMES 
280 HEXT X:REM31 ; 
cie Derlacement du canon et analyse du clauier O4 
260 Â=1268 : B=RND(GS&)i+4 : DH=1i : NC=0:REMCC 
270 SET(A:B):REMGE 
280 RESET(A:B-DR):REMII 
290 IF PGINT{IA:B+DB)=-4 THEN DB=-DE : NC=NC+2 : PRINT 4970:” SCO 
RE :" 1000-NC:HS$3; : POKE AD+11237 : X=USR(S):REM9D 
300 IF PEEK(15359)<30 THEN NC=NC+1 : GOSUBR 390:REM0O7 
310 E=E+DE:REMID 
3F0 GGTG 270:REMS9 
330 ‘ Trace des colonnes B5 
340 E=RND(29)+4:REMF4 
390 IF POINT(E?RND(39)+3)=-1 AND POINT{IE:RND({39)+3)=-1 AND POINT 
{E:2RND(39:+3;=-1 THEN 380:REM?4 
380 IF RND(23)=1 THEN FOR I=42 TO 4 STEP -4 : SET(E:1) : SET(E+1 
NEXT : COTO 300:REMES ù 
70 FOR I=4 TO 49 : SET(E>21) : SET(E+1:1) : NEXT:REM48 
ÿ RETURN:REMF1 
R Lancement d'une balle 79 
WU=(RND(4)-4)4546 : ZX=RND(40)+3 : SET(W+4:27X}) : SET(IW+S2ZX)IR 





ne 
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410 PRINT Q971:"SCORE :" 1000-NC:HS%5:REM66 

#20 ND=VD+1 : IF VD}S THEN VD=0 : GOSUB 330:REMIE 

#30 42=120 : B2=B : POKE AD+11737 : X=USR(25):REM9C 

440 SET(A2:B2) : RESET(A2+4:B2):REMS3F 

450 IF POINT(A2-4:H2)=-1 THEN RESET(A2-3:B2) : POKE AD+11797 : X 
=USR(10) : RESET(AZ-42B2) : RESET(A2:B2})} : RETURN:REMEO 

4b0 A2=Â2-4:REM76 

470 IF A2=0 THEN SOD:REMC3 

480 GOTO 440:REMFA 


450 Fin du Jeu 15 

AUD PORST=0 NO 1E7 5: RESETCI7B2) 2: NEXT I:REÈMES 

510 PRINT à@0” GA MTE ONVeESR CASSE - HRIQU 
EE Ps SREM?7 


320 FOR I=0 TO 50 : POKE AD+11:37 : X=USR(I) : NEXT I:REMO4 

SH FOR I=5D TO 1 STEP -1 =: POKE ADr11737 =: X=USR(II) : NEXT I£RE 

M2E 

540 CLS : STS=STRINGS(64795) : PRINT ST$ : PRINT : PRINT : PRINT 
: DESIREZ-VOUS REJOUER "3 :REMCS5 

J50 INPUT B$ : R$=LEFTS(B$»1) : H1=1000-NC : IF B$="N" END:REMAA 


J60 IF HI>HS THEN HS=Hi : N$é=NOg : HS$=" HI-SCORE :" +STR$S(HS) 
:REMEF z 

970 PRINT : PRINT : PRINT "HI-SCORE DE *“ N$ ” :” HS " POINTS" : 
PRINT : PRINT : PRINT : PRINT ST#:REMOC 

580 AS=INKEYS : IF A$="" THEN 580 ELSE 130:REMA6 

590- ‘ Presentation BO 

600 PRINT Gd2Z1i?'”CASSE - BRIQUES "::REMEF 

&i0 PRINT a84:STRINGS(18:95)3::REMBF 

620 PFRIAT:REMEO 

830 FRINT : PRINT * LE EUT DU JEU EST DE TRAVERSER UN MUR CO 
MPOSE GE PLUSIEURS RANGEES DE BRIQUES. POUR LES DETRUIRE: LANCEZ 
UNE BALLE À L'AIDED'UNE TOUCHE QUELCONQUE. ":REMDO 


640 PRINT : PRINT * ATTENTION; À CHAQUE TIR UNE BRIGUE SE RE 
PLACE ALEATOIREMENTET PERIODIQUEMENT: UN NOUVEAU MUR APPARAIT !” 
:REMAS 

850 PRINT : PRINT ” À CHAQUE REBOND DU CANON: VOUS PERDEZ DE 
UX POINTS." : PRINT : PRINT ” BONNE CH 
ANCE...":REM9A 

&ëD PRINT 4896” APPUYEZ SUR <ENTER} .":REM13 


870 PRINT 99157"ENTER"::REMAS 
680 POKE AD+11:37 : X=USR(100) : FOR K=0 TO 75 : NEXT K:REM11 
890 PRINT G@915:° °3:REMID : GMME 

700 A$=INKEYS : IF A$=CHR$&(13) THEN 730:REM2C > 2 
110 FOR K=D T0 75 : NEXT K°REN32 


e VOIR TRACE no 2 
720 GO0OTO &70:REMD4 


730 PRINT 4896," NOM : "32REMBC ie 
740 FOR I=0 TO 2 : POKE AD+11:44 : X=USR(10) : NEXT I:REM45 
750 PRINT 3896," NOM : "3 : INPUT NO$:REM24 


760 FOR I1=1 TO 60 STEP 10 : POKE AD+11737 : X=USR(I) : POKE AD+1 
1:37 : X=USR(60-I1) : NEXT I:REMBA 

770 FOR I1=0 TO 350 : NEXT I:REMCD 

780 FOR I1=1 TO 60 STEP 10 : POKE AD+11:37 : X=USR(I) : POKE AD+1 
1737 3% X=USR(GO-1} =: NEXT I=REMAS 

#90 RETURN:REMSS 

800 DATA 2057127110: 1753693 16:2543238312211:25579371:32r246r 201:RE 


MS 
E10 DÊTA 49:3573:56151:9321321:68:3 893763673179 73217112782609:32109132:9 
2:3F:REMEA 


ee —— — ——— Dominique Delcoigne 


TRACE N° 6 - Juillet 1983 - 31 





enseignement 
La pompe 
aspirante-foulante 











Dans le numéro précédent (TRACE n° 5), nous vous avons pompe “aspirante-foulante". Si vous ne connaissiez pas 
présenté un programme illustrant le fonctionnement d' la subtile différence qu'il y a entre ces deux modèles 
une pompe aspirante. Aujourd'hui (et comme promis...) voilà l'occasion ou jamais ! 

la leçon de mécanique continue avec une variante : la 


‘Configuration tyFe 


A%S: P Ter. ADN = ns 
C7 14983. TRACE’Et.R. 
C 
CLS 3 PRINT =: PRINT” ANIMATION REPRESENTANT LES MGUVEMEN 
D'UNE POMPE SR SRE ATEN S Ter = ENCQURLE 
N T E":REMEC 
FOR X=0 TO 127 : SET(X20) : SET(X210) : NEXT:REMFO 
FOR Y=0 TO 10 : SET(O?Y) : SET(127:Y) : NEXT:REMDZ 
PRINT : PRINT : PRINT'ELLE SE COMPOSE ESSENTIELLEMENT D'UN CO 
RPS COMPRENANT UN':REM6S 
100 PRINT : PRINT° COVAIESRANSDARNE Et UN ARE NE 
O N “:REM47 
110 PRINT : PRINT'LE FLUIDE EST ASPIRE PAR L8 CANALISATION INFER 
IEURE":REMEZ 
120 PRINT : PRINT'ET SER& REFOULE PAR L8 CANBLISATION SUFRERIEURE 
"1REME 1 
130 PRINT : PRINT REMARGUEZ BIEN LE MOUVEMENT 
DES CLAPETS ! !°:REM47 
140 FOR T=0 TO 4000 : NEXT:REMS 
150 CLS : PRINTa857; ea re 3:REMAS 
1860 PRINTGZ5:° > REFOULEMENT nu 
170 CLEAR 300 : D=64 à: V=0 : AS=CHRS {14 1 Hé=CHR$&(183) :REMOC 
180 C$=CHR$(149) : D$=CHR$(191) : H$= CHRS (428) : REM72 
190 F$=D$+STRINGS(27:H#)+D08 : G$S=CHRS (140) :REM32 
200 ES=CHR#(92)+H8+H$ : Jé=CHR$(131):REM7E 
2IDOTTF= STRINGEUEE 1AF)+STRINGS (42H) ESTRINGS(1E A8): REMSS 
220 K$="<= <= {= £= <= ê= £= <=":REN77 
230 L$="=} =} =} =}? =} =} =} =}":REMSZ 
240 M$="-} -> Ter = Sr Ar = = 2 REMDÉ 
250 N$="<- <- ÉÉT n Re KE RE D REMEE 
260 O0$=STRINGS(15:128) : PRINT à 192:1#3 : PRINT à 7047:1%::REMSA 





270 FOR X=232 TO 680 STEP D : PRINT à X2D$: : NEXT:REM2D 
280 PRINT à 744À$::REM8À 

290 FOR X=640 TO 192 STEP -D : PRINT à X:2D$: : NEXT:REM4À 
300 PRINT à 3262F$3 : PRINT à 582:F$::REMD9 

310 FOR X=81 TO 145 STEP D : PRINT à X:D$::REMFS 

320 PRINT à X+5:D$: : NEXT:REMES 

330 FOR X=721 TO 849 STEP D : PRINT à X:D$::REMAS 

340 PRINT à X+5:D$: : NEXT:REMCF 

350 GOSUB &70:REM73 
360 X=391 : U=24 : Z=0: 
370 Y=X+1 : V=V+i 2: 7=2 
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IF V=70 GOTO 80:REM&F 

FOR Y=X TO X+128 STEP D : PRINT à Y2D$: : NEXT:REMDO 

FOR Y=X+65 TO X+97 : PRINT à YŸ:G$35 : NEXT:REMCé 

PRINT @ 392+72" “5LEFT$&(M$:U)3::REMSD 

PRINT à S520+7:" “3LEFTHS(M&2U)5:REMBA 

PRINT à 390:MID$(M$:U72)3 : PRINT à 518:MID$(M$:U72 
7 


SREMAS 
PRINT à 276:3MID$(KS&:7715)3 : PRINT à 644:MIDS(KS:7 } 


}5 
15): :REN7 
IF X=414 GOTO 480:REMBF 

FOR Y=X TO X+128 STEP D : PRINT 9 Y:H$3: : NEXT:'REMB84 

GOTO 3/70:REMO2 

GOSUE S3O0:REMFS3 


PRINT à 644:0$3: : PRINT à 276:0$::REM0& 


FOR Y=414 TO 542 STEP D : PRINT à Y:H$3 : NEXT:REM4Z 
X=414:REM3E 
X=X-1 : Z=1-14 : U=U+1:REMFS 
PRINT à 390:MIDS(N:U72)3" °3:REMB# 
PRINT à 518:MIDS(N#:U22)3" “3:REMAS 
FOR Y=X TO X+128 STEP D : PRINT à Y:D$: : NEXT:REM2F 
PRINT à 417-U2LEFTS(NS&:U0i5 2 PRINT Q S4S-U3LEFTS(NS$2U)3:REME 


PRINT à 262:MID$(L$:2+1:15)3:REM00 

PRINT Q 662:MID$(L$72+1:15)5:REMF2 

FOR Y=X+65 TO X+97 : PRINT 9 Y2C$::REMCES 

PRINT à X+98,:H$3: : NEXT:REM8A 

IF X=391 GOTO &4D:REMIC 

FOR Y=X TO-X+128 STEP D =: PRINT à Y:H$3 : NEXT:REMES 
GOTO S20:REMé4 

GOSUR 870:REMSO 

FOR Y=391 TO 519 STEP D : PRINT à Y:2H$3: : NEXT:REMA3 
PRINT à 262:0$::PRINT à 665:0$3 : GOTO SSD:REMFD 

FOR X=577 TO 581 : PRINT à X2H$3 : NEXT:REM9C 

FOR X=355 10 9359 : PRINT à X:H$3 s: NEXT:REM9S 

FOR X=355 T0 359 : PRINT à X:H$: : NEXT:REMSE 

FOR Y=23 TO 27 : X=24+(2#Y) + RESET(X7Y) : NEXT:REMIS 
FOR Y=11 TO 15 : X=32-(2#Y) =: RESET(IX:Y) : NEXT:REMI4 
FOR X=322 TO 325 : PRINT à X:1$%: : NEXT:REM/8 

PRINT à 321:4$3 : PRINT G 615:4$::REM3C 

PRINT 9 577:A$3 : PRINT à 3593:A4$::REM20 

FOR X=811 TO 614 : PRINT 4 X:1$: : HEXT:REMSE 

FOR ONE SSNTO LM TES CEA RES SET CSM) CNE SRSREMDS 
FOR Y=11 TO 15 : X=48+(2%xY); : SET(IX:Y) : NEXT:REMDO 
PRINT à 147: CL°3 : PRINT à 356;"[L"::REMD7 

PRINT à 6207"<- "5" FERME": : PRINT à 579:"LL"::REM29 
PRINT à 3643"<- OUVERT": : PRINT à 772:"[ QUVERT"3:REMSE 
PRINT & 68:E$3" FERME": = PRINT 9 787:"LL"3:REM8? 
RETURN:IREM37 

FOR X=322 TO 325 : PRINT à X:2H$: : NEXT:REMOB 

FOR X=611 TO 413 : PRINT à X2:H$: : NEXT:REMOD 

FOR Y=23 TO 27 =: X=56-(2#Y) =: RESET(X:Y) : NEXT:REM7B 
FOR Y=11 10 15 = X=48#r{(24Y) : RESET(X7Y} : NEXT:REM77 
FOR X=577 TO 581 : PRINT à X2:J$3: : NEXT:REMDI 

FOR X=355 TO 259 : PRINT à X:J$: : NEXT:REMCA 

FOR Y=23 TO 27 =: X=24+(2#Y}) : SET(XI1Y) : NEXT:REMSE 

FOR Y=11 TO 15 X=32-(2#Y}) = SET(X:Y) : NEXT:REMS4 
PRINT à 682E$3: "OUVERT": : PRINT à 620:"<- OUVERT':RENS9 
PRINT à 323,"[["3: : PRINT G 264;"£- FERME"::REM2E 

PRINT à 6114:"[["3 : PRINT àG 772:"[ FERME"3::REMF 
RETURN:REMBF 





Roger Henrotay 
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jeu 





Conduite de nuit 





Vous avez peut-être déjà pris la route des vacances 

au moment où vous lisez ces lignes ? Peut-être pensez- 
vous déjà à la route encombrée du retour ? Alors sui- 
vez les conseils "“futés" de TRACE : partez la nuit au 
volant de votre ordinateur... 

Ce programme BASIC écrit par un étudiant de 16 ans 
(vous voyez bien qu'il existe de jeunes auteurs...) 
met en oeuvre des effets "spéciaux" extrêmement in- 
teressants que l'on ne trouve habituellement qu'avec 
le langage machine. Nous vous laissons les découvrir... 
En tous cas, bravo à Olivier qui, par la même occa- 
sion, est aussi très bon en anglais puisque c'est dans 
cette langue qu'il nous a fourni le programme ! Nous 
espérons ne pas avoir fait trop d'erreurs de traduc- 
(NDLR) 


tion ! 


ONDUITE JDE 


1982 — OLIVIER THIVQLET 





SUR 


Donbre 


HiVR) 


HAVE, 


our 





"Conduite de nuit" est un jeu d'adresse écrit en BA- 
SIC pour TRS-80 modèle 1 ou 3, avec une configuration 
mémoire de 16, 32 ou 48 K, disquette ou cassette. IL 
comporte deux routines en langage machine qui lui per- 
mettent de générer des sons. 

Le but du jeu est de maintenir le capot de votre voi- 
ture entre les bornes d'une route sinueuse. La condui- 
te est similaire à celle d'une véritable voiture : vi- 
tesse, accélération, freinage, etc... À grande vites- 
se, il est conseillé de rétrograder avant d'atteindre 
un virage ! Vous trouverez toutes les instructions 
utiles dans la case "message" dessinée sur votre ta- 
bleau de bord... 


Pour les lecteurs désirant en savoir plus sur le fonc- 
tionnement du programme, voici quelques précisions. 


La boucle principale est placée en début de programme 
afin d'améliorer la vitesse d'exécution. La présenta- 
tion du jeu s'effectue sous forme de défilement dans 
une case "message" ; i1 est très important de respec- 
ter les espaces dans les lignes de textes BASIC sinon, 
cela provoquerait des décalages à l'écran lors de 1! 
exécution du programme. Il est possible de jouer seul 
ou à deux et seuls les quatre meilleurs scores sont 
mémorisés. Les routines "dessin du jeu" et "initiali- 
sation" sont exécutées au début du jeu seulement. 

Il est toujours possible pour de petites configura- 
tions mémoire de supprimer les remarques ét les espa- 
ces entre les mots-clés BASIC sans nuire au fonction- 
nement du programme. 


Pour ceux qui veulent entrer dans les détails, la lis- 
te ci-dessous des principales variables utilisées leur 


apportera quelques précisions. 


Bonne route ! 


ant 


de joueurs 


FASE caractère aiguille 

FAIR ER emplacement aiguilles fuel de jJ 
EFS! caract effacement aiguille fuel 
FFSi caract aiguille fuel 

RER ancienne tabulation capot 

MJ$(i 4 4) meilleur joueur 

FF SAOMES 47 meilleur temps 

ES adresse routine son {dans SD) 
ËF adresse routine musique (dans MUéi 
À4$ à D$ FÉSErUÉRS aux messages 

CE témoin clauier 

E HOUUNSALU Lirage 

5 et réseruées à USR 


ÉRÉEEANERÉÉESESRERÉELÉELIRÉEREENRELESRERELEE 
TRE OT EN ED USINE D E NOTE RC ET 
19837 TRACE et Oliuier Thivolet 
Configuration : modele 1 ou 3 
1) 32 ou 48k 
Cassette ou disquette 


CLEAR 2000 : GOTO 1750:REMED 
Et 
BOUCLE PRINCIPALE 
ERNBCINTIVB#1,.5)) : IF RND(F)=41 THEN B=-B:REM4D 
IF TPiSé+B£=488 OR TP(S)+R+293=511 THEN B=-B:REM4C 
FOR NN=i TO 5 : FRINT 8TP (NN) 2CHR$(30)5 : TP(NN)=TP(NNI+E : 
PRINT ATP (NN :2F8S(NNis : © (1078) :REM9C 
TO PRINT aôc:" Æ “PRINT GTCr CAS: 5 BC 
0 FOR Izi TO S0-VEsi : £ ë OR I=1i IG 100- 


HET 


D EN £e ) Pres of Or LIT 1 Pi pu 


La JS re) 


REM9D 
NEXT I:REH 


EE 
F 


ÿ 


st Re 
YS=INKEY 
THEN iéü ELSE 
TRSHENRIS ER NE 
: VIÈVE 10 de 
tit À: 
120 ee REX AE ! J5:REMAS 
130 440 i IF PEEK(14400)=16 THEN YT 
=YT-20:REMDZ = 
140 IF VT>VHEUVE) THEN VT=VM(VE) ELSE IF VT€O THEN VT= O:REM7F 
150 PRINT GERIINTIVT/7)i3 ENS RENE 
160 IF PEEK(14400)2=323 THEN TC=TC-VB ELSE IF PEEK(14400)=04 THEN 
TESTC+VR:RENS7 
NH=S THEN 189 ELSE NN=NN+1 5: 
TFENNI=TP CNND +5 PRINT ATF{NNI-P£ 
É ; Ii +UVB+#iD =: _RSSSTRSCTE 


OR VAL(Y#)>S 

ELSE PRINT à 

2 VB=UAL(YS): 
140:REMDE 


mn LUN MES 
un A An Ts 


GTPENN)-1: CHR$(3O 


mn) IRINS#CI0 
3 THS (Je 4REM3O 

ENF{JJ))EFS(NF(J Ji) 
CNE CA44))5 % IF NF(JJ) 


MS 


LL Fr ca un (TI ER 


Les JU D ie 


IIS RE 
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5 GOSUR 1040 : NFiiii=14 : GOSUB 1000 : GGTG # 


La 

ra 

ve qui 
al 
Apres 

tu 

“ 


fe jm 





RINGS(28:92)+"B O NUS ESSENCE... JOUEUR <“+C#+ 
RESSER <ENTER> FOUR CONTINUER ‘+STRINGS (28:32) :REMSC 
90 BS=STRINGÉ(28:32)+"B 0 NUS E S GE N CE... JOUEUR 
... PRESSER POUR CONTINUER "+STRING#(28:32):REMDS 
300 FOR I=1 TO LEN(A$)-28 à IF I/ZCHINT(I/2) THEN PRINT 6674:MID 
$iAHr1r228)3 ELSE PRINT 4674: MID#(BS: 1:28) 1:REM2F 
310 GOSUE 630 + IF CL=1 THEN GOTO 220 ELSE GOSUE 460 : NEXT I : 
GOTO 300:RENF 7 


8+1/10) =: FOR J=1 TO 1/2 : NEXT J21 : GOSUB 370 : N 


36 5 28 

F(JJ)=NF(HJ)-1 : GOTO 690:REMED 

370 PRIN EFiNF(JJ)):EFS( NF(J4)35 3 PRINT GEACINTIVT/7)):EASCIN 
T(VT/7)} PRINT GTS(VB):* ‘3 : RETURN:REMIÀ 

3890 83 


Le A en let) Men namweme se ETC TT PAC OU NN TUE 79 
400 A$S=STRINGSé(28:32)+"C ON DUITE DE NON OIUTE ss PAR 
OÉIVIER THIVOLET:.::-{(C) -N V. 1982 ... PRESSER KENTER-POURGEES SE 
NSTRUCTIONS ... €CLEAR POUR VOIR LES SCORES ... <1> OU <23 POUR 
LE NOMBRE DE JOUEURS"+STRINGS (28:32) :REMOC 
410 B$S=STRINGS(28332)+"C O NDUITEÉ BE NU; oh eTPAR 
DÉBUTERCTHIVORET (Cr NOV-4987 ... PRESSES POUR LESSI 
NSTRUCTIONS ... POUR VOIR LES SCORES ... OÙ POUR 
LE NOMBRE DE JOUEURS*+STRINGS(38:323 RES é 
420 FOR I=i TO LEN(AS)-28 5 IF I/2<HINT(I/2) THEN PRINT a67#4:HID 
$iASI1:28)3 ELSE PRINT 0474:MIDS(BS: 122815 :REME7 
430 GOSUB 630 + IF Ci=1 THEN 470 ELSE GOSUB 640 : 
SO ELSE GOSUB 850 : IF CLl=1 THEN 880 ELSE NEXT I : 
= 
+40 END:REMC? 


J 5: RETURN:REMAS 
T 5 RETURN:REMES 
470 15256 Le NEXT I Eee L ñ 5 
; DES 





R U C 

SSE OÙ 
TION 2. UTILISER LES OUCHES î À 5) POUR CHÉNGER D 
FSREN21 








480 CH-RIGHTE(AS +"UTILISER <8> POUR DEBRAYER ... PRESSER <CL 
EAR> POUR VOIR LES SCORES ... <13 GÙU <23 POUR LE NOMBRE DE JOUEU 
RE+STRINGSEIZE: 38) :REM4S 
490 BS=STRINGS(28:32)+"I NS TRUCT I G NS ... UTILISER 
POUR MODIFIER LA VITESSE OÙ LA DIRECTION ... UTILISER 
POUR CHBNGER DE VITESSE ... 2REHS3 
500 DS=RICHTS(RS 3:28) +" UTILISER FOUR DBEBRAYER ... PFRESSER 
POURVU PENEESSS CORRE POUR LE NOMBRE DE JOUEU 
ES'+STRINGHIZE: 32H IREMDE 
SD CRORE AMONÉENCARIERE RD 
SIÔSII:28)35 ELSE PRINT 8474:MIDSIRS 
= DE 640 s# IF Clei THEN 558 
GOSURB 4503 HEX REF 
I=i TS LEH(ICS)- 
2835 BEGSE FRIHT 
EH &at #4 1F Ci=i 
COSUR 450 3: BEE 
ONE 
HFCCPER SC AN 
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ses HJ="+MTSCH)+" PAR “+MJ$(3)+" ... és +MTÉ(4)+ PAR  +MJ$i4 
KE ÆRENTD 
S60 BS=STRINCS(Z8238)4"L E SG # GRANEBS ... 
PAR “+STRINGSILENCMIS(1))2325+" ... PAR “+STRINGS(L 
ENIMJS(2))r927+ .. PAR "+STRINGS(LENCMJS (3) 7932)+# 


Sue FAR C+STRINGS(LEN(MIS(4;):32):+"":REMCD 
F(A$S:28)+" ... PRESSER <ENTERS POUR LES INSTRUCTIONS 

... +13 OÙ 35 POUR LE NOMBRE DE JOUEURS'"+STRINGS(28:32):REMFE 

PÉBÉT ES IN URPRESEER POUR LES INSTRUCTIONS 

OU POUR LE NOMBRE DE JOUEURS'"+STRINGS(ZE:323):REMNSE 

TO LENCASI-26 2 IF I/2£HINT(I/2) THEN PRINT a674:MID 

ELSE PRINT à674:MID$(B$:1:28)::REMOC 

QO = IF CLe1 THEN 470 ELSE GOSUB 650 «: IF CL=1 THEN 6 


Eur 
6 led VUS 


i 
CRC 
DM D 
bi 

Dr 
is. 


30 = EXT I'REMFS 
To LEN (C$S)-28 2 IF I/2€HINT(I/2) THEN PRINT a674:MID 
21:28): ELSE PRINT d674:3MIDS(DS$71:28)3:REMF2 
D GOSUB 650 » IF CL=i THEN 470 ELSE GOSOB 650 : IF CL=zi THEN 6 
ELSE GOSUE 450 : NEXT I : GOTO S590:REM7C 
30 IF PEEK(14400)=1 THEN CL=1 : GOSUB 1040 : RETURN ELSE CL=0 : 
RETURN:REMDA 
640 IF PEEK(14400)=2 THEN CL=i : GOSUB 1040 : RETURN ELSE CL=D0 : 
RETURNIREMCF 
850 Y$S=INKEYS 2 IF Y$<}"" AND (VAL(Y#)=1 OR VAL(Y#)=2) THEN Cl=i 


ie DD de 
mt 
OT] 


De EG Ce + 9 CC De + LH 
db 102 EI € 


+1) Ci li 


ï GOSUR 1040 RETURN ELSE CL=0 : RETURN:REMEZ 
660 ‘  8A 
DA GEST ONNBES CIOUEURE MER 60 
880 1=2586 : NEXT I : GOSUB 1070 : Ni=VAL(IYS) : GOTO SSO:REMER 
6890 ON NJ GOTO 7007/20:REMZÀ 
#00 JJ=i % IF NF{JI)=0 THEN GOSUR 950 : GOTG Si0D:REMOS 
F10 AS=ETRINGS (28: 323)+*JOUEUR <UN> --.. PRESSER <ENTER3 POUR DE 
MARRER+STRINGS(26:37) : GOTO 770:REMéé 


EN 


IF NFi2):=0 AND NF(1)}=0 THEN GCOSUE 550 : GOT0 8i0 ELSE 
=0 THEN COSUR SSD:REMSE 

IS ns THEN JJ=Z ELSE JjJJ=1:REM3D 

IF NFOJJi=0 THEN IF JJ=1 THEN Jji= ELSE Ji=1:REM4C 

GN . 710: /7840:REMED 

AS=STRINGH(Z8:932)+" JOUEUR £DEUXR ... PRESSER <ENTERD FOUR 
RRER ‘ +STRINGS (2832) :REMO& 

GOSUE 1000 : ES=STRINCGS(26;:35)i+"JOUEUR -.- LHESSER 

FOUR DÉMARRER "+STRINGS(Z8:32):REMI4 


DA 


st nl 
ni FH 





nf En 
St Te De LE de LE Fi Les 1 Gi! 
fe 2 en A 


Ed 
Li ai i 


780 FOR P=LTO 3 = FOR I=1 TO LENCAS)-28 IF I/Z<HINT(I/2) THEN 
PRINT 8674 MIDS (AS: 1228): ELSE PRINT Gé74:MIDS(RS#;1:28)3::REM4D 
790 GOSUR 830 : IF CL£}i THEN GOSUB 460 : NEXT I : GOTO 780 ELSE 


I=258 : NEXT I:REMSI 
SON GGTO 40sREMEC 
810 A$S=STRINGH(28:32)4°T ER 
COMMENCER "+STRINGS(28:35}) : Hà R 
PRESSER POUR RECOHMENCER 
820 FOR:T=S. TOC LENLASNST SE RMERPT 7 EE 
S(AS:1:28); Free De B8743:MIDSIES; 






se _ sus » SRE ET 










EEE PRESSER LENTERS POUR RE 
NES(28:97)+" 


d6/&3:MID 









230 COSUE Fe HRÈBSE 
RES H£ 

B40 FOR di=i TS NU =: FOR NU=G 10 4 2 16 TMHIJIH >VEL(HISINUI Si THEN 
SCD :RERSE 

B50 NET Hi 

Sé0 FOR =3 5 HjSiDE+ii=MjS(D 

FO NERIENUl COSUR 870 à: HUzS 3 
COTO ESD:RER 

D70 GOSUE 1080 à: IF ji=i IHEN Cé= UN ELSE CS="DEUX":REMSS 

BAD ASESTRINGEISE:3EI+C À 6 K D ERCAONROES LOUER TETE 
an PRIE RARE NT SONER ERTRER VOTRE NOM ... 28 CARACTERES MAX 
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}:REM25 
2340 RAA ND -0S-C00 BE :.. JOUEUR = 
OUR ENTRER VOTRE NOM ... 28 CARACTERES MAXIMU 


 — CA 


es Te UTILE 
| 


 Æ M ZT 


& 3 IF I/Z3<HINT(I/2) THEN PRINT &674:MID 
Hé 4: MNIDS(RS:I:328)5:ER 
CL£}i THEN GOSUB 440 : NEXT I : GOTO 900 ELSE 
PRINT &6747""3:REMAZ 

CL=1 THEN RETURN:IREMEBi 
TAL THEN 920 ELSE IF ASC(Y#)=8 AND LENCHIS( 
Ÿ$3 3 MJSCNU)=LEFTS(MJS (NU) :LENCMISCNU))-1) à 
IF ASC(Y#)€32 OR ASC(YS)>127 THEN 920 ELSE PRINT Y 
HIS (NU) =HJS NU) +YS: IFLENCMJS (NU) )=28THEN94DEL5E 920: REM97 
4 GOSUR i04D : GOTO &OD:BREM8D 
THEN CS “UN” ELSE CE= "DEUX ":REMAC 

E À 2) d'S7 D ESS Er Nec R = IOUEUR es 
POUR RECOMMENCER‘+STRING#(28,:32) : E#% 
Sos EPS SE Nails En ss OUEUR 
POUR REC COMMENCER “+STRINGS(28:32):REM6I 
370 FOR I=1 TO LEN(AS$)-28 : IF I1/2<€H>INT(1/2) pee PRINT àé674;:MID 
$(AH:1:28)3: ELSE PRINT d674:MID$(B#$:1:28)::REMS 
580 GOSUR 630 : IF CL<>i THEN GOSUB 460 : NEXT ï 5 GOT0 770 ELSE 
NEXT I : RETURN:REMDS 















1=256 : 

990 Jji=Z : NFi PISTE 5 NF(2)=14 2 TIMCii=0 : TH(2)=0 : EM(1)=0 : HE 

HC1)3=0 : THét1)="000000000 : TM$#(2)=1M$(1) : GOTO 490:REMEC 
1000 T£=472 à ACTE à: TF=0 2 VE=i : VT=0 : EM=0 : TPfii=217 : TP 
(2)=8797 3 IP(N)=347 = TPiäh=4té 2: TP(Si=466:REMS7 

1010 FOR I=7 10 7 : PRINT G&1l404:CHR#S(30:3 = NEXT I:REM7C 

1020 FOR I=1i TO 5 : PRINT GTP(I):PAS(I): : NEXT : PRINT a1iC:CAS: 
5 PRINT &GTS(ii:SP#i1i::REMS7 

1030 PRINT &GEA(D):F4$Si0:3 3 PRINT 8EFiNPF(JJ))2FFSCNF(CJHi)s s: PRI 

NT dé60:1M8iJJ): = RETURNIREMSST 

1040 FOR I=0 10 27 : FRINT di+é7ä; 3 3 S=USR(IOSE+I} à: 

5: RETURNIREMSE 

HSE 

1060 ‘ MUSIQUES == 

1070 GOSUE 1120 : FOR I=i TO 18 : POKE &M+t:N1CI) # POKE 6M+ 

Ii 2: M=USR(O) à: FOR J=i 19 30 : NEXT J:31 : GOTO 1O070:REMFS 
TÉSONGOSUROMIE2D LE FOR CREER NO 2 FOR JI=AMrE0 Gr POKEC ANT INA CE) 
PO PORESAPÉE PET COM US RER SE NENTEL Ha RUROE= SRE STE: 
POKE AM+1:NZII) =: POKE AM+33:L70I1)-4 : MEUSRIO) : NEXT I : GOf0 


1CDSD:REàSG 

1090 ES=VARPTR(SD$) : ESB=PEEK(EN+1)+2S0#PEEK(ES+2) 2 IF Eur32767 
THEN EB=E8-465536:REMDE 

1100 1F PEEK(16396)=201 THEN 1110 ELSE CMD “T° : DEFUSROSES : PO 
KE :D : RETURN:REMCI 

1110 POKE 16526:PEEK(E9+1) : POKE 165271PEEK(E9+2) : RETURN:REM? 





JE TINSPAENERS EN ERAE CN UT 
EYURN:IREMSS 

2}=REMID 

THEN ÂM=6M-655436 


ï GÔOSUE 1140 : DEFUSRO=8N : POKE 
1130 POKE 16526:PEEK(AM+1) : FOR 
1140 SMESPEER CAM+TI+2SÉé#PEEK(AN+E 

: RETURN ELSE RETURN:REM7#4 


1120 AM=VARPTR(IMUS}) 3 IF PEEK(1639 
î 










1150 7E 
1160 ‘ DESSIN DO JEU 74 
1170 CLS : PRINT 4576:STR1INGS (47176) PIEUR"3STRINGS(#&:1/4)3" 
“ISTRINGE(3:176;: He ne 8): :STRINGS (11: 176) 
1} S (9:48): CHRSCII4)S “ICHRS(AQUISIRE 
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7127: 107//r100r6231 
3313r16:2383175:2i 
HO Sr ARREAR Er Te 
1: READ X à: VMil)= 
1131:974i:176:74331 


S(14):EAF(14) 
1)=CHRS CV) EASII 
EAS(OD)=ERSCTIER 


22 
3.7 


hr AT. 1144137 
RE 
BERET 


Il 
TI Hi! 


AUAOMETTIN TE 










CR. 


HISélii=" 


er A 


Dr" ei 


#(171);: 

3 C40" 5: CHR ( 
Er RER D ES ER RU 
= LS Î 
€ {149 


FL ON VD en 2 


AR 3m vu 


CRE Ur 

an HA ITS Lo 
al 

| 


eu 
but 


HR 


SL 


ZT à+ 


FES 
CET, FLE 


4 


Lt 


ue 


LÉ 


ETS 
3203 
T0 & : REED 


FOR I=i 
}=CHRS (2) 
EMSÀ 


159:1433:77à; 1607325774 
vies or teri4/s 131 /t.) 


37/br31/53145 
FOR Iz=i 
= CHRS (2) 


} 
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READ Ni(I}:L1(I) 


53:25:30: 10:307:10:357102307:10; 
b:20r67207S:REMAE 
NERTORISRUE: 


310532111255) 45242:2593:60: 1052211 
1:255:2D1:REMSS 

TSilizx : SPSCI)=CHRSCY) : NEXT : 
X : NEXT:REMSS 

31:943:176:3945%3 1317455600: 75:%0710 
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15115: 
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Olivier Thivolet 
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essai logiciel 


NEWDOS 80 


APPARAT, INC. 


VERSION 2.8 
MODEL I 


NEHOOS/8 


11/11/11 145% 


A READY 





version 2 : 
quoi de plus 


(II) 





LES FONCTIONS SUPPLEMENTAIRES DE NEWDOS80 


Après avoir passé en revue les fonctions existant 
dans les deux systèmes voyons maintenant ce que 
NEWDOS80 offre en plus. 


APPEND 

Cette fonction permet d'ajouter le contenu d'un fi- 
chier à 1a fin d'un autre. Le contenu du fichier 
ajouté reste inchangé. 


Permet de faire clignoter le curseur, ou d'arrêter 
ce clignotement. 


BOOT 
Entrer BOOT équivaut à une pression sur le bouton 
RESET si difficile à atteindre ! 


Permet de faire exécuter des fichiers de commandes, 
c'est-à-dire des séquences d'actions prédéfinies, 
sans intervention de l'opérateur. Cette fonction 
peut faire gagner du temps, et permet surtout de 
mettre l'ordinateur dans les mains d'un utilisateur 
peu expérimenté, qui peut se contenter de connaître 
seulement l'application sur laquelle il travaille, 
celle-ci étant automatiquement lancée à la mise sous 
tension. La commande DO fonctionne de manière stric- 
tement identique et existe sans doute pour des rai- 
sons de compatibilité avec d'autres SED. Les comman- 
des PAUSE, STMT (affichage d'un message) et CHNON 
(fin de l'enchaînement) sont des compléments de CHAIN, 


Cette fonction supprime toutes les déviations des 
drivers entrée/sortie (voir fonction ROUTE). Elle 
abandonne toutes les routines d'interruptions en 
cours telles que l'affichage continu de l'heure ou 
le spooler (voir le programme ASPOOL). Elle remet 


40 - TRACE N° 6 - Juillet 1983 


MEMORY SIZE à la valeur maximale de la machine ou à 

celle prévue à la génération du système. Elle remet 

à zéro la mémoire entière ou entre les bornes fixées 
par des paramètres optionnels. 


CLS 


Efface l'écran. Sous TRSDOS cette commande n'existe 
qu'en BASIC. 


CREATE 


Pour allouer par avance un fichier ayant des carac= 
téristiques prédéfinies. 


FORMAT 


Sous NEWDOS80, FORMAT est une fonction plutôt qu'un 
programme séparé. Cette fonction offre bien sûr tou- 
te une gamme d'options pour tenir compte des possi- 
bilités accrues de NEWDOS80. 


Permet d'entrer ou de lire sous DOS une valeur de 
MEMORY SIZE (décimale ou hexa). 


JKL 


L'appui simultané sur J,K et L provoque la recopie 
de l'écran sur l'imprimante. 


LC et LCDVR 


de la 











SED réduit qui peut être 
née des touches D,F et 
en cours d'exécution 

mbleur, à condition que 
celui-ci tr 
driver" 









re le programme en cours, 


PDRIVE 

Cette commande est utilisée pour adapter ou modifier 
votre système en fonction des unités de disquettes 
utilisées. C'est elle qui permet de définir pour cha- 
que drive, le type d'unité, le nombre de faces, la 
densité, le nombre de pistes, le temps de déplacement 
des têtes de lecture, etc. 


R provoque la répétition du dernier ordre SED émis. 
Utile, par exemple pour formatter toute une boîte de 
disquettes vierges. 


Il existe des SED qui ont une fonction ROUTE plus 
élaborée, mais déjà la possibilité de dévier ou de 
dédoubler les données entrées ou sorties par le cla- 
vier, l'écran ou l'imprimante (RS232 pour le modèle 
3) vers un autre périphérique ou vers une routine en 
mémoire représente un avantage non négligeable. 


Voilà avec PDRIVE la fonction qui permet de créer 

des versions de NEWDOS80 adaptées à tous les besoins. 
Il est possible d'utiliser NEWDOS80 sans jamais mo- 
difier aucun des paramètres SYSTEM. Les options par 
défaut sont celles qui fournissent un système stan- 
dard le plus proche du TRSDOS. Mais par SYSTEM on 
peut par exemple indiquer comment seront traités les 
mots de passe, créer des disquettes système qui ne 
permettent que l'exécution de programmes, prendre 
des options vis-à-vis des modifications non standards 
(minuscules ou horloge rapide), désactiver les tou- 
ches Break et/ou Clear, indiquer quel sera le drive 
accédé par un DIR implicite, décider du premier dri- 
ve qui sera accédé pour la recherche d'un fichier et 
sur lequel un nouveau fichier sera crée, protéger de 
manière permanente une zone mémoire, etc. 


LE BASIC DE NEWDOS80 VERSION 2 


Le BASIC de NEWDOS80 marque un progrès sensible par 

rapport à celui de TRSDOS. Les programmes écrits en 

BASIC sous TRSDOS restent pourtant totalement compa- 
tibles. 


La différence est visible au chargement. Ici il n'y 

a pas de dialogue pour demander le nombre de fichiers 
et 1a taille mémoire. NEWDOS80 suppose 3 fichiers et 
protège la mémoire si cela a été demandé à l'adapta- 
tion du système par la fonctions SYSTEM ou par HIMEM. 
Il ést cependant possible de modifier ces valeurs en 
les spécifiant à la suite de la commande BASIC. 
L'ordre BASIC * restaure un programme après en RESET 
ou un retour au SED. 


Les fonctions d'édition du BASIC ont été élargies, 
il est possible de faire défiler dans les deux sens 
le texte BASIC par pages e es en plus de l'avan- 
cement par ligne. La répét des touches s'avère 
très pratique pour faire d texte d'un pro- 
gramme à l'écran. 





Les commandes DI et 
la recopie de lignes 
possible de relancer &G 
tes les variables et 
commande MERGE peut £&r 
ASCII et peut être invoqué 
programme . 







I1 est possible de renuméroter des programmes (ordre 
RENUM) et d'établir à l'aide de l'instruction REF 


différents types de listes de références croisées. 


LES INSTRUCTIONS CMD 


Les instructions CMD du TRSDOS restent valides, mais 
un certain nombre d'instructions supplémentaires ont 
été ajoutées. 


CMD "C" permet la compression d'un programme par sup- 
pression des espaces. 


CMD "D" ou une pression simultanée sur 1,2 et 3 per- 
met d'appeler DEBUG. 


CMD ‘"J" permet de convertir une date de la forme 
MM/JJ/AA en AA/JJJ, où JJJ représente le nombre de 
jours écoulés depuis le premier janvier de l'année 
considérée. 


CMD "O0" permet d'appeler une routine de tri pour 
classer des zones ou des enregistrements. 


I1 est par ailleurs possible d'appeler depuis BASIC 
la plupart des fonctions système voire des program- 
mes ou routines assembleur tant que ceux-ci n'inter- 
fèrent pas avec la partie de la mémoire utilisée par 
le BASIC. 


CMD "DIR 1" 

CMD "COPY FILE/EXT:0 TO :2" 
CMD "DRIVER" 

CMD "DO INIT" 


L'instruction CMD "F" admet de nombreux paramètres 
qui permettent par exemple la sortie hors d'un bou- 
cle FOR NEXT sans aller au bout du comptage, la ré- 
tention ou l'effacement contrôlé de variables, l'é- 
change de valeurs entre variables (SWAP), la suppres- 
sion dynamique de lignes BASIC, et le pas-à-pas pro- 
gramme. 


L'instruction RENEW permet de retrouver un program- 
me après sa suppression accidentelle. 


LE TRAITEMENT DES FICHIERS DISQUETTES EN BASIC 


TRSDOS connaît deux types d'accès, l'accès séquen- 
tiel et l'accès direct. Cette dernière méthode d'ac- 
cès utilise les instructions FIELD assez laborieuses 
à manier. Dans ce cas, il appartient au programmeur 
de gérer la longueur des enregistrements pourvu que 
celle-ci soit inférieure à 256 caractères. 


NEWDOS80 permet par contre de traiter des enregis- 
trements de longueur variable pouvant aller jusqu'à 
1096 caractères, en introduisant deux nouveaux modes 
d'accès qui ont l'un, deux sous-modes et l'autre, 
trois. Ces modes permettent des accès direct et sé- 
quentiel faciles à des enregistrements de taille 
fixe et/ou variable. Ces nouvelles possibilités ou- 
vrent la porte à des applications de gestion plus 
sophistiquées sans perte d'espace disque et sans 
acrobatie de programmation. Ceci est probablement 

12 partie la plus complexe de NEWDOS80 et mériterait 
un développement beaucoup plus large que ne le per- 
met cette description générale du NEWDOS80. 


PROGRAMMER EN ASSEMBLEUR 


Comme le manuel TRSDOS, le manuel NEWDOS80 fournit 
un certain nombre d'adresses de routines utilisables 
par le programmateur en assembleur. En fait, là où 
le manuel TRSDOS fournit 6 adresses, celui de NEWDOS 
80 en communique 38. Cela permet d'affiner 1a maniè- 
re d'accéder aux disques et donne d'autres possibi- 
lités concernant les sorties écran, imprimante, le 
traitement des interruptions, de l'horloge, etc. 
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PROGRAMMES COMPLEMENTATRES 


La disquette NEWDOS contient un certain nombre de 
programmes de service très utiles. 


SUPERZAP 

Ce programme permet d'afficher, de modifier, de met- 
tre à zéro ou de recopier des secteurs de disquette 
qui peuvent être adressés de manière absolue ou par 
rapport à des pistes ou des fichiers. SUPERZAP permet 
notamment la modification de programmes et la récu- 
pération de parties indemnes d'un disque détérioré. 
Cet utilitaire était déjà connu de NEWDOS 2.1, mais 
cette fois, il est entièrement écrit en langage ma- 
chine. 


DISASSEM 


I1 s'agit d'un désassembleur qui peut traiter des 
programmes placés en mémoire ou sur disque. Le ré- 
sultat pourra aller vers l'écran vers l'imprimante 
ou sur disque. Un fichier désassemblé sur disque 
peut éventuellement être modifié et réassemblé. A 
manier tout de même avec précaution, des surprises 
sont possibles ! 


LMOFFSET 

Permet la copie de programmes système de cassette à 
disquette ou vice versa. Mais ce programme a une uti- 
lité particulière pour rendre exécutables sous SED 
certains programmes écrits pour fonctionner en Level 
2, et qui doivent être exécutés dans une partie de 

la mémoire utilisée par le SED. Ces programmes sont 
décalés à des adresses supérieures, et complétés 
d'une séquence qui après leur chargement les recopie 
à l'adresse d'exécution et les lance automatiquement. 
Dans le cas extrême on peut même se mettre en Level 

2 après le chargement depuis une disquette, puis 
lancer le programme par l'ordre SYSTEM. 


DIRCHEK 


Ce programme teste et liste le catalogue des fichiers 
d'une disquette et peut effacer les informations re- 
latives à des fichiers supprimés qui subsistent après 
l'exécution d'un ordre KILL qui ne fait que position- 
ner un marqueur de suppression. 


Il s'agit ici de la version standard Tandy de l'é- 
diteur-assembleur, modifiée et adaptée aux disquet- 
tes. Elle est présente sur la disquette si l'ache- 
teur peut légalement justifier qu'il possède déjà 1a 
version d'origine. Hormis la possibilité d'écrire et 
de lire les programmes source et objet sur disquet- 
tes, ce programme s'utilise de manière strictement 
identique à la version cassette. 


CHAINBLD 

Ce programme BASIC permet de créer des fichiers de 
commande pour la fonction CHAIN. Si vous possédez un 
programme de traitement de textes, il est encore plus 
commode de créer ces fichiers à l'aide de celui-ci, 
étant donné leur format très simple. 


ASPOOL 


Vous voulez un ordinateur travaillant en multipro- 
grammation ? Vous voulez règler le sort des envahis- 
seurs extra-terrestres pendant que votre journal 
comptable s'imprime ? ASPOOL vous offre cette possi- 
bilité. Dans un premier temps l'impression est dérou- 
tée vers un fichier disquette. Cette opération est 
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infiniment plus rapide que l'impression directe où 
l'ordinateur passe le plus clair de son temps à at- 
tendre que l'imprimante soit prête à accepter un ca- 
ractère de plus. 


Ensuite vous lancez l'impression à partir de cette 
disquette puis vous chargez Invaders. L'imprimante 
continue à marcher, et les envahisseurs sont un tout 
petit peu ralentis dans leur descente, étant ainsi 
plus faciles à abattre ! C'est de la haute stratégie! 


Mais évidemment vous pouvez aussi faire des choses 
plus sérieuses pendant cette séance d'impression. 


LE MANUEL NEWDOS80 


Ce manuel n'a rien de pédagogique, c'est-à-dire qu'il 
ne facilite pas la tâche de ceux qui abordent pour la 
première fois un SED. D'un autre côté cela donne un 
document concis bien structuré, exempt d'information 
inutile et dans lequel il est plus facile de se re- 
trouver. Malheureusement, ce document n'existe - à 
l'heure actuelle - qu'en langue anglaise. 


PROBLEMES DE COMPATIBILITE 


Nous avons déjà parlé des problèmes de compatibilité 
existants pour certains programmes en langage machi- 
ne. Apparat, la société qui a crée NEWDOS, a publié 
et continue de publier des patches (corrections) pour 
les programmes les plus connus. De cette manière il 
est possible d'utiliser Scripsit, Visicalc, le com- 
pilateur BASIC de Microsoft, Profile et bien d'autres 
en tirant partie de tous les avantages de NEWDOS80 
tels que le Minidos. De même certains programmes, ou 
certaines utilisations dans des cas limites, mettent 
en lumière des anomalies ou omissions de ce système, 
qui donnent également lieu à des corrections. 


Les propriétaires enregistrés de NEWDOS80 reçoivent 
ces corrections qui sont publiées sans périodicité 
fixe. 


ALORS, QUE DEMANDER DE PLUS ? 


Il n'y aura sans doute jamais de système parfait. 
Il existe de nombreux autres SED et certains possè- 
dent dans des domaines précis, des avantages qu'on 
souhaiterait ajouter à NEWDOS80. 


La reconnaissance automatique de la densité ou du 
nombre de faces fait partie des absences regrettées. 
Il existe néanmoins un programme additionnel qui le 
permet (DDSD de The Alternate Source). On ‘devrait 
aussi disposer d'une gestion plus parfaite des for- 
mats d'imprimante et des communications par l'inter- 
face RS232 qui ne sont disponibles dans NEWDOS80 que 
pour la version TRS modèle 3. 


Pour l'utilisation avec un générateur de caractères 
avec accentuation, tel que celui vendu par Tandy en 
Europe, on souhaiterait un "driver" permettant d'en- 
trer et d'afficher les codes inférieurs à 32 et les 
caractères graphiques. 


Peut-être que certains de 
blés dans une version 
est déjà un système ex t et on peut penser qu' 
Apparat, fidèle à sa po ue passée, offrira aux 
propriétaires de NEWDOSS50 une nouvelle version pour 
le prix d'une simple mise à jour de la version pré- 
cédente. 


s souhaits seront com- 
tout cas la version 2 
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Wolfgang Lauter 


utilitaire 








qui vaut de l'or 
(2° partie) 





Voici la suite tant attendue (c'est votre courrier 
qui nous dicte ces mots...) de la liste de cet utili- 
taire qui vaut de l'or et vous allez enfin pouvoir 
toucher les intérêts" de la patience dont vous avez 
fait preuve ! 


01000 ; 
01010 
213640 01020 CLAV HL :4036H ; MEMOIRE DE TRAVAIL 
010138 01030 EC:3801H : DEBUT MATRICE CLAVIER 
01040 _D D:00 
01050 SCRUT A: (BC) 
01060 E:A 
01070 XOR (HL) : ELIMINE EVENTUELLEMENT 
01080 E : LES ANCIENNES TOUCHES 
01090 CHESGE 
01100 NZ > TOUCHE ; SI NOUVELLE TOUCHE 
01110 N D 11! 
01120 te #5 
01130 > 


01140 SRECUCÉESS & 
01150 SINON ENCORE 

01160 HL=4018H 
01170 
01180 
D1190 
01200 
91210 H 
01220 IR NZ 3 SI NON <FLECHE HASSE?> 
01230 LD Az:(BC ; BC=3880H 

01240 

0125 R 

D12460 D Az0€ Res TEMPORISATION 

01270 JR Z:RA 3 SI AUCUNE TOUCHE PRESSEE 


CL) CU GC) LU) LU) 02 C2 02 ©) © OO Ci Q LC 
… 


(= 
—| 


EE En 


+ 07 


u N 
0) Co 
[Lo D A 


[Pa] 
11 
vo 


SI UNE TOUCHE EST PRESSEE 


LI 
co 
+ D 
OO < 
arf] res | 


DZ DDTMNQT 
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K 





— 
4L3AE 56 01220 CLAVO LD D: (CHL) r —— 
43AC 2€ 01790 INC É ; HL=4019H 
434D 5 01300 LD E > (HL) 
43GE 74 01310 LD A:D Ce, 
430F B3 01320 OR E 
43B0 1E 01330 DEC DE 
42E4 73 012340 LD (HL) 2€ 
43E7 2H 01350 DEC HL : HL=4018H 
4383 7? 01340 LD (HL) ?D 
01370 LD A:00 
11380 RET N7 : SI DELAI INSUFFISANT 
01390 RAZ LD (HE) 34 
01400 LD À: 4DH : + CADENCE DE REFETITION 
01410 INC É ; HL=4015H 
01470 LD (HL)r8 
01430 LD L:35H ; HL=4035H 
01440 LD Er07 
01450 XOR 3 us 
014860 EFFACE INC L _ = 
7e 01470 LD (HL':A 7 
: 01480 DEC E CD 
43C4 ?20FE 01490 JR NZ /EFFACE 
43C6 344038 91500 LD A7(3840H) 
43C9 EbilD 01510 AND 10H 
43CB C8 01520 RET z : SI NON FLECHE BASSE 
43CC DA 01530 LD A:(BC) : EC=3880H 
43CD E7 01540 OR A 
ne ce 01550 RET 7 SI NON SHIFT a 112 
49CF CBE6 015460 SET 41 (HL) : HL=403CH x - 
43D1 AF 01570 XOR A = 
43D2 C9 01580 RET 
43D3 5F 01590 TOUCHE LD E:A 
43D4 C5 01400 PUSH EC 
4305 010003 01610 LD BC»0300H ; DELAI D'ATTENTE 
43D8 CD6000 01670 CALL O04&0H ; POUR LE 
43DB Ci 01630 POP BC 
4#3DC OA 01640 LD A: (BC) 5 ... TRAITEMENT 
43DD A3 01850 AND E ; DES REBONDS. 
&3DE C8 01660 RET Z : SI C'EST UN REBOND : 
43DF 7A 01670 LD A:D ; # LIGNE CLAVIER (0 A 7). 
43E0 07 01680 RLCA oi 
43E1 07 01690 RLCA 5 ) MULTIPLICATION PAR 8 
43E2 07 01700 RLCA En 
43E3 57 01710 LD DA 
43E4 0E01 01720 LD Cr01 
43E6 79 01730 CODAGE LD ArC 
43E7 A3 01740 AND E 
43E8 2005 01750 JR NZ:BIP ; SI FIN CODAGE INTERMED. 
43EA 14 01760 INC D 
43EB CED1 01770 RLC C 
43ED 18F7 01780 JR CODAGE 
01790 
01800 ; BIP DE SIGNALISATION SONORE == 
01810 
43EF 0E10 01820 BIP LD Cr10H 5; * DUREE DU BIP 
43F4 1E20 01830 LD E 20H ; * FREQUENCE SONORE 
43F3 343D40 01840 BIPO LD A: (403DH) = 
43F46 30 01850 INC A Se 
43F7 D3FF 01860 OUT (OFFHIrA = 
43F9 43 01870 LD BE # 
43FA 10FE 01880 DJNZ $ 


& 
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ac ®œ, 018950 INC a “ = 
D3FF 01900 OUT (OFFH)-A 

43 01910 LD B:E 

40FE 01920 DIN7 $ e, 
OP 01930 DEC C 

20EE G1540 JR NZ:EIP0O 









D1950 
01560 : CLAVIER AZERTY (FACULTATIF) = 
01970 
2119344  D1980 LD HL: AZERTY 
7E 01990 LOOP LD Az (HL) 
23 07000 INC HL 
BA 02010 CP D 
280F 02020 JR ZPERMUT ; SI CODE TROUVE 
FE?B 07030 CP 2EH 
20F7 02040 JR NZ:LOOP ; SI PAS FIN DE TABLE 
1804 02050 JR PERMUT+1 
oi 02060 AZERTY DEFB o1 
11 02070 DEFE 11H S re 
oi 07080 DEFE pi = S - 
17 07090 DEFE 17H = 
1A 02100 DEF 14H - 
17 02110 DEFE 17H 
OD 02120 DEFE ODH 
28 02130 DEFE 2EH 
OD 02140 DEFE ODH 
56 02150 PERMUT LD D? (HL) 
02160 
02170 : SUITE DU DRIVER CLAVIER --- en ————— 
02180 
211A40 02190 LD HL »4014H 
348032  02?00 LD A: (3880H) 
47 02210 LD BA ; TEMOIN DE SHIFT 
344038 02220 LD A (3840H) 
CR67 02230 BIT LA 
7A D2240 LD AD ; CODE INTERMEDIAIRE 
2804 02250 JR Z2NOCTRL ; SI NON <FLECHE BASSE} 
CB40 02260 BIT 0B 
2027 D2270 JR NZ CTRL 5 SI SHIFT 
FE31 D2280 NOCTRL CP 31H 
3013 02290 JR NC > CMDE ; SI CODE COMMANDE 
FE20 02300 CP 20H 
78 02310 LD AB 
2807 02320 JR Z32ERO 201 <p> 
3002 02330 JR NC>FCLAVI ; SI NON LETTRE 
AE 02340 XOR (HL) 
47 02350 LD BA 
C30F04 02360 FCLAV4 JP 040FH 
7 02370 ZERO OR A 
28FA 02380 JR Z:FCLAVI ; SI NON SHIFT attre 
AE 02350 XOR (HL ) — 
7 07409 LD {HL) 8 re 
aF 02410 RETOUR XOR â 
cs 247 RET 
7 CB4E 02430 CMD! BIT 47 (HL) 
28F? 02440 JR Z}FCLAVI ; SI PAS MODE EDITEUR 
D422 0 SUE 32H 
2825 n JR Z: BREAK KN 3 SI <BREAK> 
cé0? 0 ADD A:0? 222 
21798404 LD HL:TCMDE 
CSLLO0S 0 JP D448H - 
FE?R 0?2=00 CP 20H 
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19 BA4CO 
&&SC FEZÀ 
38ES5 
282€ 
CE4E 
C43343 
2E00 
FE2D 
2827 
D62B 
218144 
18E0 
kk74 Efî 
kk475 El 
4k7b 77 
4477 3C 
4478 C9 


242040 
CDA104 
DD2 
11003C 
£49B DF 
HAICRCE 
0640 
k49F 1À 

0 FE80 
&4AZ 3802 
JE 
CDB4O0S 
13 
MARIE 
EME) 
CDE405 
SEGA 
CDB405 





2540 


LL .r2t 


LIL 


02560 

2570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 

2710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
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NRC 


BREAK 


5 TABLES DES CODES DE COMMANDE ET 


TCMDE 


CBLINK 


TCTRL 


INKEY 


3 RECOPIE D'ECRAN 


PRINT 


PRINTi 


PRINT2 


PRINT3 


DEFB 
DEFE 
DEFE 
DEFB 
DEFE 
DEFE 
DEFB 
DEFE 
DEFE 
DEFB 
DEFE 


DEFB 
DEFH 
DEFB 
DEFE 
DEFE 
DEFE 
DEFE 
DEFB 
DEFE 
DEFE 


LD 
CALL 


C:044CH 
Z2AH 
C2RETOUR 
Z2PRINT 
13 CHE) 
NZ?CUROFF 
L00 

2DH 
Z2PRINTI 
2EH 
HL2TCTRL 
FCLAV2 
HL 

HL 
(HL)2A 

A 


HL » (4020H) 
04A1H 
IX:4025H 
DE > 3CO0H 
24 


GE 
PRINT3 
& : ODH 
O5EB&H 

Ê : OAH 
DSBR4H A 


© 


NVre, 


on © 
um © 
pe 
\1)) 
D 
‘ 


7 


SICCODESÉEREEE 

SI CODE NON CONTROLE 
SEC ONRIEX 

SI MODE EDITEUR 
HL=4000H 

SCC RRISSE 


DE CONTROLE 


STOCKAGE COMPTEUR 


STOCKAGE TOUCHE 


l 
ul he 


e 


ADRESSE CURSEUR 


DEEUT MEMOIRE ECRAN 


SI FIN D'IMPRESSION 
&4 CARACTERES/LIGNE 


) + POUR LES IMPRIMANTES 
} + QUI N'ONT PAS LES 

) + CARACTERES GRAPHIQUES 
VERS IMPRIMANTE 


CODE "CARRIAGE RETURN" 
VERS IMPRIMANTE 

NC CDERSISFNENEEEES 

) + SI NECESSAIRE 





ET 
« { LA 


s 


44B6 18E3 03130 C JR PRINT? 
03140 
03150 : DRIVER D'ECRAN POUR CONTROLE DU DEFILEMENT ------------ 
03160 17 
44E8 F5 03170 ECRAN PUSH AF NN 2 
44B9 219344 03180 LD HL>INKEY S 
44BC 117F38 03190 LD DE >387FH 
44BF (A 03200 LD Ar (DE) | 
44CQ B7 03710 OR a 
44C1 2801 03220 JR Z:1$+3 5 SI PAS DE TOUCHE ENFONCEE 
44C3 77 03230 LD CHL) A 
44C4 CB7E 03240 BIT 73 (HL) 
44Cé 2800 03250 JR Z3DECRAN-1 5 SI MODE DEFILEMENT 
44C8 47 03260 LD BA 
44C9 3A2040 03270 LD A: (4020H) 
44CC E63F 03280 AND 3FH 
44CE 2004 03290 JR NZ:DECRAN-1 5 SI PAS DEBUT DE LIGNE 
44D0 14 03300 SECRAN LD A: (DE) 
#4D1 A8 3310 XOR E 
44D2 28FC 03320 JR Z:SECRAN 5 SI ANCIENNE TOUCHE 
&4D4 F1 03330 POP AF 
44DS C35804 03340 DECRAN JP 0458H 3 DRIVER ECRAN EN MEM 
03350 
03360 3; DRIVER D'ECRAN POUR LES MINUSCULES === 
03370 
44DS 242040 03380 MINUSC LD HL ; (4020H) 
#4DE DA9A04 03390 JP C:049AH 5 SI CODE 0 
44DE 342240 03400 LD A (4D22H) 
44E1 B7 03410 OR ï 
h4E2 28D1 03420 JR Z1$+3 5 SI EXTINCTION CURSEUR 
44E4 77 03430 LD (HL) A 
h4ES 79 03440 LD A:C 
44E6 FE20 03450 CP 20H 
44E8 DAO605 03460 JP C0506H 5 SI CODE COMMANDE 
44EB C3A604  D3470 JP 04A6H ÿ RETOUR AU DRIVER EN ROM 
03480 
03490 3 INITIALISATION --------- 
03500 
&$EE O0 03510 DEFR on 3: POUR PRECEDER BUFFER BAS 
G4EF 21E942 03520 INIT LD HL>ENTRY RU 
44F2 221640 03530 LD (4016H) >HL \ ge 
44FS 21B844  D354 LD HLECRAN = 
44FS8 221E40 03550 LD (4D1EH) >HL CD \ 
4&FB 242040 03560 LD HL > (4070H) 5 ) TEST POUR LA 
44FE 3600 03570 LD (HL) >00 ÿ ) MODIFICATION 
4500 7E 03580 LD A: (HL) 5 } MINUSCULES 
4501 E7 03590 DR a “a ? 
4502 2006 03600 JR NZEXIT 5 } SI PAS DE MINUSCULES 
4504 21D844 03610 LD HL MINUSC Ro 
4507 22D644 03620 LD (DECRAN+4):HL 3 ) 
03630 
03640 3 POUR BASIC LEVEL 2 ==" 
03650 
ASDA 21EF44 03660 EXIT LD HL:INIT 5 NOUVELLE ADRESSE 
450D 224440 03670 LD (4044H) > HL 5 POUR LE BUFFER BASIC 
4510 CD4A1E 03680 CALL 1B48H 5 NEU 
513 C3191A 03690 JP 1419H A 3 RETOUR AU BASIC 


03700 SU 
LS La 


_—, 
4LEF 03710 END INIT = 
00000 TOTAL ERRORS - e < 


Roger Buvat 
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logiciel 





Un traitement de texte 


très beau, pas cher 
(11) 





Dans le numéro 5 de TRACE, nous vous présentions un 
programme inédit de "mini" traitement de texte entiè- 
rement réalisé en BASIC. 

Les utilisateurs du BASIC niveau 2 qui ont tenté d'u- 
tiliser la commande M (MODIFIER une ligne) ont été 
surpris de recevoir en retour un "L3 ERROR IN 460", 
conséquence directe de l'utilisation incongrue de 
l'instruction : MID$(C,1)=S(NO). 


En effet, Un MID$( ) situé à gauche du signe égal 
n'est admis que sous BASIC disque. Sorry ! Il faut 
modifier la ligne 460 comme indiqué dans le listing 
ci-dessous, ét tout rentrera dans l'ordre. Mais en- 
tretemps, j'ai apporté quelques améliorations au pro- 
gramme... 


- Les lignes 140 et 170 ont été modifiées pour rendre 
effectif l'effacement des blocs de 8 caractères par 
la frappe des flèches gauche et droite en SHIFT. 


- La sous-routine 220-227 insère maintenant le carac- 
tère frappé (variable C2) directement dans le texte 
de la ligne (variable C). On évite ainsi les inter- 


: Râ=65536:REM4S 


BRO:REMSC 


nn. PRINT 5235 : 


BND N€IL-8 PRINT 53: 


N=N-8 : GOSUB 220 : GOTO 


ruptions provoquées par les réorganisations périodi- 
ques de la zone CLEAR. Les variables V, IA et RA de 
cette sous-routine, sont initialisées à la ligne 15. 


- La modification de la ligne 50 reporte le '"BOP' de 
fin de ligne juste à la fin de la ligne, et l'on ne 
risque plus de sauter un caractère pendant son exécu- 
tion. 


- La modification des lignes 280-290 facilite grande- 
ment la lecture du texte, qui se déroule maintenant 
caractère par caractère après un CLS. De même, la mo- 
dification des lignes 350-360 facilite la lecture du 
texte imprimé, lorsqu'on a choisi l'option : NUMERO- 
TER LES LIGNES (le numéro de ligne est maintenant hors 
TAB). 


- Les lignes 560 et 740 ont été légèrement modifiées 
pour permettre l'insertion de nouvelles lignes dans 
un texte appelé de la disquette ou de la cassette. 


- Enfin, la ligne 980 autorise la modification du nom- 
bre de Caractères par ligne après l'appel de la com- 
mande C (CONTINUER TEXTE). 


30:REM9 


GOSUB 220 : N=N+8 : GOTO SO:R 


220 V=PEEK(VARPTR(C)+1)+PEEK(VARPTR(C)+2)#256 : IF V3IA THEN V=V 


—RASREMS 


223 IF 4=24 OR A=25 THEN 227:REM61 
V+N-143 ASC(CZ} : RETURN:REM4A 


955 POKE 


EPA 


227 FOR I=0 TO 7 : POKE V+N+I:ASC(C9) : NEXT : RETURN:REM&C 


280 GOSUB 1140 : CLS : FOR K=NO TO M : IF K1=1 PRINT STR#(K)3C5; 
:REMDS 


290 FOR L=1 TO LEN (S(K)} : PRINT MID#(S(K)2L4)3 : NEXT L :PRIN 
T'REMEE 
350 FOR I=1 TO M : IF Ki=1 LPRINT 
360 LPRINT TAB(MA):3S(I) : NEXT I:REM43 


460 PRINT SNO) : PRINT SINO): CHERS 

}+STRING#(LEN(CS)-LENC(S(NG)) 332) 

560 H=I1-1 : CLOSE : JP=ME : PRINT 
: PRINT : GOTO 2S0:REMCF 


740 JP=ME 


USING "###:"3:1: 


:REM&S 


(29): CHR$(14)353 : M1=M 
GOTO 40:REMCA 
: GOTO Z2S0:REMFF 


080 IF C1="C" GOSUB 1140 : GOSUB 1100 : PRINT CHR$(14): 


D:REME6 
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Il est vivement recommandé aux utilisateurs du BASIC 


disque de compléter le programme par les modifications 


15-61 
110 PRINT 
1EESTE 
REMSZ 
LABSTE 
:REMOS 
140 IF # 
1REMS# 
1ATSTE 
SO:REN 


if 


# 
* 


N=N+ 1 
N30 : 


MID#(C 
PRINT C2; 


Las 3 


A=7 ANE-N<IJE ©: PRINT C7 


A 


=Eà 8ND N>7 PRINT 52: 
A=TS 
GE 
24 
A 
15 
1D 


AND NéJL-8 PRINT 5 


gr 
EN 
3e ! 
Lu 

RIT UE 


JL de À 


400 M=M+i 
480 PRINT 
71)=S(N0) 


SIM)=LEFT#{C2N) : 
(NO; 
GGTQ 40:REMC2 





A titre de curiosité, voici quelques résultats donnés 
par le programme avant et après incorporation des mo- 
difications ci-dessus. Le test de performance (bench- 
mark) a été effectué en modifiant la ligne 60 ainsi 


60 C2=CHR$(65) : A=ASC(C2) TRCN=JIET7 8-13 


Résultats dans les trois versions : 


1) MACHEC/BAS (TRACE n° 5) sous BASIC disque 
MEM SIZE 19152, 87 lignes de 60 caractères. 
Vitesse d'écriture = 7,5 car/sec. 

Plus de 100 réorganisations (FRE) de 1 à 3 
des chacune. 


seéecon— 


+ 
vJ 


MID$(C1 
: PRINT S(NO): CHR#(29) 


ci-après, la vitesse de frappe étant nettement amélio- 
rée par l'utilisation directe de : MID$(C,N)=C2. 


2N3=C2 : GOTO SO:REMCF 
ï MID$(C2N)=C9 N=N-1 : 


GOTO 50: 


3 : N=N+1 MID$&(C2N)=C9 GOTO 50 


: NEN-8 : MID$S(C:N+1)=53 GOTO 350 


5 à MID$iIC:N+1)=53 : 


N=N+E8 





i=CS:REM&C 
SCHRS#(14)35 : Mi 


2) MACHEC/BAS après la première liste de modifications 
sous BASIC niveau 2 (cassette) 
MEM SIZE 32667, 53 lignes de 60 caractères. 
Vitesse d'écriture = 8,2 car/sec. 
Deux réorganisations de 1 seconde. 


3) MACHEC/BAS après les deux listes de modifications, 
sous BASIC disque. 
MEM SIZE = 65298, 170 lignes de 60 caractères. 
Vitesse d'écriture = 11,3 car/sec. 
Une réorganisation de 3 secondes. 


Roger Brousmiche 


Abonnez-vous 


àù 


a 


TRACE 


VOIR PAGE 4 
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bricolage 


—&P Ouvrez votre modèle 1 


sur le monde extérieur 
(II) 





cote soudure 

















C4 = F4iS0S 


Si vous avez suivi les indications du numéro précé- 
dent, vous devriez maintenant avoir en mains le cir- 
cuit imprimé de l'interface parallèle 24 bits, "pre- 
mier étage" de notre "brûleur d'EPROM". Aujourd'hui, 
nous vous donnons le moyen d'éqguiper ce circuit en 
vous fournissant une photo en décrivant l'implanta- 
tion et un schéma électrique. Sur la photo, on remar- 
que les trois résistances de 2,2 Kohms qui sont pla- 
cées debout et le condensateur de 0,1 microfarad. Les 
deux circuits intégrés seront montés de préférence 
sur des supports. Le 14 pattes est un 74LS05 (ou 74 
LS06° et le 40 pattes un contrôleur parallèle 8255. 
Une série de "straps" vous permettra de choisir les 
adresses d'accès les mieux adaptées à votre configura- 
tion et à votre ordinateur : 








façon à ne pas 

votre systè- 
carte gra- 

abordant l'as- 


Bits d'adresse Les aûress 
du bus TRS 





Bits d'adresse 


de la carte 8255 du cuivre du "second 


au choix igno aux commandes 
du 8255 





———— _ —————————Josué Bonifas 
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utilitaire 





Des ou!i:s pour votre 
programmation 


(V) 





Maintenant que vous savez ce que fait BASPY (voir 
TRACE numéro 5), il faut l'écrire... (du moins pour 
ceux qui n'ont pas la chance d'avoir des disquettes). 
Mais peut être il y a-t-il des lecteurs qui ne possè- 
dent pas d'éditeur-assembleur ou qui n'ont pas suffi- 
samment de place mémoire pour assembler le programme. 
À moins de connaître un ami possesseur de la disquet- 
te TRACE qui veuille bien vous faire une copie sur 
cassette, il vous reste encore la solution d'utiliser 
le MINI MONITEUR de Gilles Vollant décrit dans ce nu- 
méro et d'entrer la (longue !) liste des codes hexa 

de BASPY. ATTENTION : en utilisation modèle 3, rem- 
placez le "JP 6CCH" de la ligne 8050 par un "JP 1A19H". 
Cela étant terminé (et en espérant qu'une coupure sec- 
teur ne vienne contrarier vos efforts !), frappez 


<BREAK> 
SYSTEM 
131534 


(pour sortir de MINI-MONITEUR) 


Cette dernière adresse correspond au label INI (ligne 
7980 de la liste assembleur). 


Dès cet instant, le programme BASPY figure sous sa 
forme BASIC dans la mémoire de votre ordinateur. SAU- 
VEZ-LE sur le champ (avant de faire un RUN !}) puis, 


après vérification, chargez-le de nouveau (CLOAD) afin 
qu'il s'implante à sa bonne adresse. Maintenant, vous 
pouvez faire RUN ! 


UTILISATION DISQUETTE 


Si vous possédez la disquette TRACE numéro 5, utilisez 
directement BASPY5/BAS. Dans le cas contraire, assem- 
blez le programme ét sauvez-le (BASPY/CMD). Pour ob- 
tenir BASPY/BAS (la seule forme exécutable), revenir 
au niveau DOS et faire les opérations suivantes 


LOAD BASBY/CMD 

BASIC 

(éventuellement, répondre ENTER aux deux questions) 
SYSTEM 

131534 

SAVE "BASPY/BAS" 

RUN "BASPY/BAS" 


NOTA : sur modèle 3, la commande "SYSTEM /31534" pré- 
sente une anomalie. Il est donc conseillé de la rem- 
placer par 


DEFUSR= 31534 PRINT USR(O) 





uuyi00 
05110 
GG+20 
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OGi4t 
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SNEr2 See Ur 
REPÉRER 





Fi pe 


l 
L 
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al 


NZ2PAG 
HLr(KIF+1) 
{4016H)7HL 
FINHGN 

Rp: 







ot 
AA AT ml Ra 
A1 0 EU (ES 
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RENE 








| : 







LI RE 

E E&aU 

0 LD 

ü CF 

E JR 
LD 

Ü IF 

E LD HL:EDIT 
GE Es 
JR Z:COMIN 

QnSNN LD HL 7 SERRCH 
CF RS 
JF Z:COMIN 
JR NZ>ATCLA 
ALL YID 
Li 1° 
CALE VID 
FUESH HE 
C&EL KCHBIH 
POP HL 
CP î 
JR Zr:COM 
JF CHL) 
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00650 : 51430 JR C2PAPQOIN 
00640 3--- COMMANDE DISPLAY Gi4é0 POINT LD Br 
004650 ; Gi450 FAFOIN LD HL:BUFF 
OG660 DISPL LD HLzBUFF i 4 26 
00670 ETi2 CALL HEXBIN 
78 00680 ETI3 LE (ABR1) DE 
à 00670 ETi4 LE (ADRC) DE 
00700 LD à; CHL:) 
90710 LD DE:OFFFFH 
GO730 CP ODH 1 : ï 
G0730 JR ZCAD2 249 01530 FLIG LD HL 7 (ADRC) 
0740 INC HE ED: 8 01540 ET36 in DE: (ADR?) 
00750 ET15 CALL HEXBIH > DE 01550 RST DE 
65760 INC DE D2 D15860 ET37 JP NC:CON 
00770 CAD? LD (ADR2):DE 7£&D C3677 D1S70 ET38 JE LSUIT 
S39A78 00780 ETI4 LE {APR2) DE 01580 : 
2383 ÀF G0790 x0R 4 D1590 ;--- FONCTION CONVERSION 
7S5B4 3929E78  OO800 ETI7 LD (FLAGES) À ü1600 : 
7587 3E0D 00810 LSUIT LD ä:0DH , CONVER ,B 
7589 CD9877  O08?70 ETI8 CALL VID HER <e SA 
7SBC 210278 00830 ETI9 LD HL:BUFF cp ie 
75BF 349D78 00840 ET20 LD fr (ADRC+1) JR 2,DECIH 
F75C7 CDD478 O0850 ET?i C&LE BINHEX 5 CONV HEXA --3 DECIMAL 
; 00860 ET2% LD B:{8DRC) ET39 CâLL HEYBIN 
00870 ET23 CâLL BINHEX ET40 LA HL:BUFF 
00880 LD TEE cs ET41 CALE BINDC 
00890 INC HE COHCY 0 ED tHL) 4 
CE 3 900900 LD À: 20H ET42? LD HL:BUFF-3 
7500 77 00510 LD CHL) 74 F'ETS3 CALL VIDEO 
75D1 23 00520 INC HL ET44 JF Con 
FAN 00630 LD CHLi sk 5 CONV DECIMAL --} HEXA 
sie 00940 INC Be DECIM INC HL 
753D4 3601 009750 ; LD {HL) 31 O ET4S CALL DECEIN 
75Dé6 CD8B77  D00940 ET?4 C&LL VIDEO! D LD AD 
00579 ; SEQUENCE DE BOURRBGE 7ü iD HL:BUFF 
7509 3A9C78 00980 ET25 LD à? (8DRC) 80 ET47 CBLL BINHEX 
75DC E40F Güsso AND 15 90 LD A7E 
7SDE 2813 01900 JR Z:NEQUR IDD ET48 CALL BINHEX 
?25E0 F5 Gi010 PUSH BF 110 JR COHCY 
751,87 51020 8DD Br 2 
7SE2 47 91030 LD Brâû FONCTION EDIT 
75E3 F1 01040 POP AF 
7$E4 3D 01050 DEC A EQU $ 
75ES CE3F üin60 SRL ñ LD HL:BUFF 
7SE7 CE3F 1070 SRL â CâLL HEXEIN 
7569 3€ ni080 INC â DT AND (APBC) 2DE 
75E4 80 0190970 ADD BE LD HL:BUFF 
7SEB 47 01100 LD E:4 LD &:D 
75EC 3E70 giii0 LD à:20H CâLL RINHEX 
7SEE CD9877 01120 EBOUR CBLL VID 01920 LD &7E 
75F1 10FE G1130 DJNZ BOUR Ü19530 ETS2 BINHEX 
75F3 01140 NEOUR EGU $ 01940 (HE): 
2553 249078 : 01150 SLICG LD HL:{ADRC) 51950 HE 
75F6 7 0ii60 LE Bal 2 01940 {HLi:t 
7SF7 E603 01170 AND 3 33 01970 RL 
75F9 7E 01180 LD À? (HE) 18 01980 A:{DE) 
FSFA 23 01190 INC HL CDO878 01950 ETS3 BINHEX 
75FB 229C78  O1?00 ETZ6 LD {ADRC) 2HL 3620 02000 CHL)3 °° 
ZSFE 21A278 01210 ETZ7 LD HL3EUFF 
7601 7003 9i2290 JR NZ:PE 
7605 3620 01730 LB {HL) 20H 
7hnS 23 01740 INC HI 
780é CD0678 01750 PB C&LL BINHEX 
7607 3601 017460 LD {HList 
740B CD9B77 01270 ET?8 £ALL VIDEGi 
ZGUE 349078 £ LE ñz{8DRC) 
7611 E&0F BND 
7813 20DE JR 
7415 3E2 LD 
7617 CD9877 CALE 
SSION 
74iA 3EZ0 LE 
741€ CD9877 01390 ET3i CALL 
7hiF 249878  n1260 SASC LD 
7622 7E 51370 LE 
7823 33 01380 INC 
7474 2239878 01390 ET32 LD 
7637 FE2û Gi400 CP 
7829 3804 01410 JR 
762E FE89 01420 c 
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7A9E 23 02010 INC AL #F L LD. cé 
789F 3601 n29020 LD (HL) 71 23 2820 INC Le 
7ôñi CD8E77 02030 ETS4 CALL VIDEO! 7E pee LB pre 
7&û4 CDDS877  D?040 ATED CALL KCHAIN CD: 2840 ET74 CALL IE 
7647 FE01 07050 CP ot Bi 22850 OR © 
78AS CA4575  O2040 ETSS JP Z:C0M 13 8a0 LD (DE) 7À 
76AC F5 02070 PUSH AF 13 70 INC DE 
7é8D 78 02080 LE A2B 23 2880 INC HL 
Z&AE FED1 02090 CP 1 10 02850 DJNZ SE " 
7660 Z80À 02100 JR Z:PATOU Z8 U2500 RECHER LD HLz (ADR 1) 
78B2 21427 02110 ETS LE HL:BUFF à 02910 RECH LE RER 
74B5 CD2078 02120 ETS7 CALL HEYBIN 62720 ET75 LD A7 (LG) 
78BB 2490728 02130 ETS8 LD HL:{ADRC) ] EE de 
76B6 73 02140 LD {HL):E 774€ LE se ? 
7éBC F1 02150 PATOU POP AF 7784D CE es 
76BD ED5B97C78 O2160 ETS9 LD DE:{8DRC) F18E se Fe fe 
7bC1 FESE 0217 CP SEH 0 Re = 
7403 2003 02180 JR NZ:INCED 1 La Nr 
76C5 18 0731950 DEC DE £ RST Dh nes 
76C4 18BE 07700 JR SUEDIT É hs LÉ 
76C8 13 02210 INCED INC DE “A a tee 
74C9 18B8 022? JR SUEDIT ne = NS 
02230 : 5 , DER Su Ee 
DU ee - 7755 229876  O3040 EGALA LD {ADR 4) :HL 
An s FONSEEQNCRERUERQHE 7760 13 03050 ECA INC DE 
76CB 214278 02260 SEARCH LD HL > BUFF pee us Fe RUE 
Pos EE en Fe 7783 05 03080 DEC B 
76CF 329E78 02780 ET1 LD (FLAGES) 74 2e ohe nanon JR 2:EDATR 
FbD2 CD?2078 02290 ET40 CALL HEXBIN TJé8 BE 03100 ce HD 
76D5 En539878 02300 ETé61 LD (ADR1):DE 7167 ?6F7 03110 JR 7ECA 
PODSRTE 02310 LD AE 7769 249878 03120 CHS LD HL > (ADR 1) 
78DA FEOD 02320 CP DDH 5780 23 03130 INC HL 
76DC CA4575 02930 ET4? JP Z:COM 378D 18D5 03140 JP RECH 
76DF 23 02340 INC HL 776F 214278 03150 EDATR LD HL:BUFF 
76E0 CD2078 02350 ET63 CALL HEXEIN 7772 349978  O2160 ET78 LD Az (ADR 1+41) 
76E3 EDS536A78 02360 ETé4 LD (ADRZ) DE 7775 CDD678 03170 ET79 CALL BINHE *X 
76E7 7E 02370 LD A: (HL) 7778 349878 03180 ET80 LD À: (8DR1) 
76E8 FEOD . 02380 CP üDH 777B CD0678  O3i90 ETSi CALL BINHEX 
76EA CA4575 02390 ETES JP Z:CO0M 377E 3600 03700 LD HL) ;ODH 
78ED 2 02409 INC AL 7780 23 03210 INC HL 
78EE 7E 02410 LD fi CHL) 7781 3601 03220 LD (HLiri 
7T8EF FE22 072420 CP se 7783 CD8B77 03290 ETez CALL VIDEO 
78Fi 2018 02430 JR NZ7PASC 7788 CDAF77 03740 ETS3 C&LL SURY 
76F3 23 02440 INC HE 7789 18DE 3250 JR CHS 
76F4 229C78 02450 ET48 LD (ADRC)7HL 03260 ;: 
76F7 017001 02440 ER BC:0120H 3570 ;3--- ZONE DES ROUTINES 
76FA 05 02470 DEC E D3?e0 : 
76FB ES 02480 PUSH HL 778B 219278 09290 VIDEO LD HL:EUFF 
76FC EDE1 07490 CPIR 778E 7 ü3300 VIDEO LD à: (HL) 
76FE Di 02500 POP DE 778F FED1 03310 CP î 
76FF C24575 02510 ET67 JP NZ: COM 7791 C8 03320 RET z 
7702 937 2520 SCF 7792 CD9877 08320 ETS4 CALL VID 
7703 ED52 02530 SBC HL DE 7755 2 03340 INC HL 
7705 7D 02540 LD AL 7756 18F6 03350 JR VIDEO 
7706 329778 02550 ET68 LD {LG) A n2340 : 
7709 1836 02560 JR RECHER 7798 CD3301 023370 VID CALL 0133H 
770E 229078 02570 PASC LD {ADRC) >HL 779B C9 03380 RET 
770E 012001 027580 LD BC:D1Z70H 03390 : 
FATRDS 02590 DEC E ES 03400 KI PUSH HL 
7712 ES 02600 PUSH HL 5 03410 PUSH BC 
7713 3E0D 02410 LD 82 0BH CDE303 03420 KIF CALL 3E3H 
7715 EDB1 07420 CPIR c1 03430 POP BC 
7717 Di 024630 POF DE on 03420 POP HL 
7718 C24575 02640 ET69 JP NZ 7 COM - E7 03450 GR a 
7118 37 07850 SGE 71784 C9 D3440 RET 
771C ED52 024680 SEC HL DE 03470 : 
771E 7D 02670 LD AL 7785 CD9C77 09480 KIB CALL KI 
7713F CB3F 02880 SRL A 7788 FE01 23490 CP 4 
7721 379778 02890 ET70 LD {tGï:4 7748 CO 03500 RET N7 
7724 CA4S75 02700 ET7/71 JP Z22:COM 77àB E1 03510 RCOM POP HL 
7127 2A95C78 2730 /E072 LD HL?{ADRC) 77AC C34575 3520 ETes JP COM 
772 E5 02720 PUSH HL 03530 : SURVEILLANCE CLAVIER 
773E Di 02730 POP DE 77AF G3ASE78 03540 SURV LD A: (FLAGES) 
7720 47 02740 LD B:À 7782 B7 03550 OR â 
772D 7E 02750 SCB LD A2 (HL) 77B3 200E 03540 JR NZ7SURCLA 
772E CD8678 027860 ET73 CALL HEX 77B5 CDoC77 03570 ETS86 CALL KI 
F7 (ay; 0277 RLCA 77B8 Ca n3580 RET 7 
7732 07 02789 RLCA 77B9 FEDI 03590 CP 1 
7133 07 02790 RLCA 77BE 28EE 03400 JR ZrRCOM 
7734 07 2800 RLCA 77BD FEZ0 03410 CP PAU 
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77BF CO 03420 RET NZ ESF 18E7 D4#20 ea 
- BINAIRE/D 











7700 329E78 02630 ET87 LD (FLAGES)7A | 
7703 CD9C77 03640 SURCLA CALL KI 783D LD 
77C6 28FB 03650 JR Z:SURCLA 7840 CALL 
77C8 FED1 02660 CP 1 7843 Hi 
77CA 28DF 03670 JR Z2RCOM 7848 CALL 
77CC FE20 03680 CP TE 7849 LD 
ZACECCE 03490 RET Z 784C CDSE7E +45 CALE 
77CF FEOD 03700 CP ODH 784F D1F6FF 04500 LD 
77Di 20F0 03710 JR NZ: SURCLA 7852 CDS878  D4510 ETSS CALE 
77D3 àF 03720 XOR âä FRSS DIDPFE 94520 LE 
77D4 329E78 03730 ET88 LD (FLAGES) 74 7838 3E2F 04530 CBE LE 
77D7 C9 03740 RET 7854 ES 04540 PUSH 

03750 : ENTREE CHAINE AU CLAVIER 785B DS 0550 HE 
77D8 214278 03/60 KCHAIN LD HL:BUFF 7B5C E: £ EOE 
77DE @F 02770 XOR A 78SD 3€ 4: INC ñ 
77DC 47 03780 LD B:4 785E D458 ADD HE BC 
77DD CD9C77 03790 ATKC CALL KI 7RSF : 04590 iF C:CBDi 
77E0 28FB 03800 JR ZrATKC 7861 04600 SEC HL:EC 
77E2 77 03810 LD (HL) 4 7883 Dé&8i0 x DE7HL 
77E3 FE08 03820 CP 8 7884 04420 POP HL. 
77E5 200D 03830 JR NZ7PACOR 7885 7 0483 LD (HL) 7 À 
77E7 78 03840 LD 8:E 78be : tr INC HL 
77E8 E7 03850 oR a 7867 0 RET 
77E9 28F2 03860 JR Z3ATKC Dééa0 3 CONV DECIMAL/BINAIRE 
77EE 05 03870 DEC B 7868 11FFFF  O4670 DECBIN LD DE:0FFFFH 
77EC 2B n3880 DEC AL 7B8B. 13 04680 INC DE 
77ED 3E08 03890 LD a:8 788C 7E 04490 DCR LD A: CHL} 
77EF CD9877 03900 VISK CALL VID 786D FE30 04700 CP SES 
77F2 18E9 03910 JR ATKC 788F DE D4710 RET C 
77F4 D4 03520 PACOR INC E 7870 FE34 04720 CP 9144 
77F5 33 03930 INC HL 7872 DN 04730 BET NC 
77Fé6 FESE 03940 CP SEH 7873 22 04740 INC HL 
77F8 2804 03950 JR Z:S0RK 7874 ES 04750 FUSH HL 
77FA FEZ0 03960 CP 20H 7875 62% n4780 LD H:D 
77FC 20F1 03970 JR NC>VISK 7876 à 04770 LD L:E 
77FE F5 3980 SORK PUSH AF 7877 19 ü4780 BDD HL:DE 
77FF 3E0D 03990 LD à? ODH 7878 29 04790 ADD HL HE 
7801 CD9877  D4000 ET89 CALL VID 7879 19 04800 ADD HL:DE 
7804 F1 04010 POP êF 7874 23 04810 BDD HL:HL 
7805 CS 04020 RET 787E D430 04820 SUE Re 

04030 : 787D 5F 04830 LE E:8 
7806 F5 04040 BINHEX PUSH BE 787E 1401 04840 LE D:1 
7807 CDOF78 04050 ETS CALL EHX1 7880 15 04850 DEL ü 
7804 F1 n4080 FOP AF 7881 19 04860 ADD HL DE 
780B CD1378 04070 ET91 CALL BHXZ 7882 EE 04870 EX DE 2H 
780E C9 04080 RET 7883 El 04880 POF HL 
780F 1F 04090 BHX1 RRA 7884 18E6 04890 JR DCE 
7810 1F 04100 RRA D4900 : CONVERSION HEXA ASCII 
7811 F 04110 ERA 04910 3: /BINAIRE 1 @UARTET 
7812 41F D4120 RRA 7884 D430 04920 HEX SUE 30H 
7813 E60F 04130 BHX2 AND DFH 7888 FE04 04930 CP 10 
7815 C630 04140 8BD Ar'0° 7884 D8 04940 RET C 
7817 FE34 04150 CP 16144 788B D407 04950 SUR 7 
7819 3802 04160 JR C2 EHX3 7BED C9 4520 RET 
7B81B C607 04170 86D hr7 04970 : TRAP SHIFT hi 
781D 77 04180 BHX3 LE {HL) À 7B8E CD9C77 04980 KIN CAL KI 
781E 22 Dé&i90 INC HL 
7B14F C9 04300 RET 

04310 : 
7820 11FFFF DE:DFFFFH 


7823 13 


7824 7E 









8> (HL} 
7825 D63 0° 
7827 DS c 
7828 FEOA 10 
7828 3804 CHXB2 
782C Dé07 Sn Ê£ à CERN 
782E D8 04300 c Se HE 
782F FEID 04310 18 OISE 
7831 DO 04320 NC ervrP!L. 
7832 EB 04330 HXB2 DE > HL PPT 
7833 29 04340 HL : HI : 
7834 29 04350 HL > Hi = 
7835 29 04360 HL > HL 
7836 29 D4370 HL > HE 
7837 ES 04380 Ë 
7838 6F 04390 Lré 
7839 EB 04400 DE HE = 
783A 23 04410 HL 
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7851 FEéD 04990 
7893 CO 05000 
7894 (33075  OS0t0 
7897 üi 
7898 0i0i 
785à 0101 
7890 0101 OS080 
7B9E O1 DS090 $ 
789F 2D 05100 
7EAZ 31 05110 
12345678901234567890" 
78C0 20 05120 
—— BA SP Y 
78EE OD- 05130 
78EC 20 05140 
ION BASIC - (C) 1980 
7917 DDOD 05150 
7919 01 05160 
7718 O0 0517 
791B 43 05180 
7926 Di 05190 
7927 00 05200 
05710 
05230 
48)+256%PEEK (16549) 
05230 
7928 0524 
7928 4479 05250 
7528 0300 05760 
792€ 41D5 05270 
792E E528 05280 
7930 3i 0529 
7935 29CD 05300 
7937 32 05310 
793À CFES 05350 
7 38 05330 
31 05340 
2500 05350 
05360 
05370 
HENA=A-45524 
7348 5575 
7946 D4D0 
7948 8F 05410 
7949 41D4 
794B 33 
7950 CA4i 
7952 DS4i 
7954 CE 
7955 34 
7954 00 









}=7THENGELSEA=PEEK (4) 








DS 10 
23320 

7858 79 0553 
F9an 0 02540 
795€ 5 055 
7881 & 1 05540 
7583 Fe 05570 
7985 3905 D3586G 
7887 37C8 
7589 3438 05600 
FSÈB 954 nséin 

B BSES 

LONARERNET 

1 Z8CD 

3 34 

LE D Se 

B 284 

8 CD3i 

€ 293% 

7E E534 05700 

5 08 0E710 





Ca 


3 


1 
! 


CERTES 
D «0 D 0 9 
> 02 Le CO Lo 9 


o DD A0 eu ON Co bu 


F2 Qi (D C5 + RO © 4e IN) Li M 9 1 D NC him 
0 HA D es CC Qies 49 (C3 7 de 


De 


met 


N 


M 0) + Li 
UN Q- ++ ZT 


— VERSION Vi’ 


2] 


"COMMANDE 7 


M eu té 15 C2 L 
QITIRISe TI 


s. 


+4 
cal 
Æ 
m 
4 


PRASIC 


+ NH © LI 4 
pa 1 


Ven OT ss O0 4 


Ha OS CT On I 3 Os MI En 
3 CN CN 


J+rLs 


“eo 
pa Lu] 


| 
Cr Jr ol 
"1 
a 8 


“IE 


L 


LIGNE 4 ---» 4 1FA332767T 


+) 
[un 
| 
D 


DÉEPEEK (A+) 


0° mm 
M ts 


JT ES Tes 3 
Le] 
> 


Cie CA EN CM 0 a 


Q tu 
CT 
Lan 


E 
B 


En 





le Est Fe t 
DEEE SSE 





05750 


15790 
US£800 
US810 
US820 
U3839 
US840 
GS850 
USE4u 
DS58 /U 
USEEU 
5589u 
OSSuu 
059710 
03920 
235330 
0554 

255su 
05740 
05970 
059580 
057970 
04000 
04910 
06020 
04030 
26040 
56050 
04060 
06070 
(RER TE 
C60$50 
06100 


NIT EN BINAIRE = 
E G8310 


D41%0 
96130 
06140 
06150 
Déi80 
Déi7n 
06180 
06170 
D&zun 
D6219 
06:20 
66230 
06240 
0625 

06280 
66:70 
662780 
06290 
B6300 
08310 
08320 
06330 
G6340 
D835 

56380 
563790 
5638 

08370 
06400 
Dé4i0 
58430 
0643 

0Dé44n 
06450 
Dé6440 
Déé470 





LIGNE 86 ---3 à POKEA+S7PE 


(1641533 


RÎ=INT((A+4)/354) :POKE 164 


POKE 18415: A1:PRINT 


IGNE& BEFW 


BEFH 
BEF 
DEFH 
BEFW 
DEFH 
DEF M 
DEF KW 
DEF W 
DEFUW 
REFHW 
BEFH 
DEFH 
BEF W 
GEFW 
BEFW 
DEFW 
DEFW 
DEFHK 
DEFH 
DEFM 
DEFW 
DEFB 
BEFM 
CEFW 
DEFW 
DEFW 
DEF" 
DEF 
DEF 
DEFH 
BEFE 


G6#80 FINREF LD 


LIGNE7 
ë 
415iH 
SSCDH 
DES2CH 
28 
‘16414 
3A25H 
#1B1h 
34CDH 
DES2CH 
28 

irc Eee 
JA£ZSH 
3141H 
UDSDSH 
Z#Z28#H 
UCD41H 
£734H 
LDUH 
‘U88- 
3RZSH 
051H 
"164143À° 
34CDH 
#1CEH 
DCF31H 
Po. 
OE134H 
"16415541" 
OBZ3AH 
(e) 


PIGNEN 72 SEQUENCE N°7 


LIGNE7 EGU $ 
INIT DEFW FINBAS 
DEFW 7 
MODIF PAR POKE 
L7P4 LD HL?0101H 
RESTORE AD DRIVER VIDEO 
LD (4D1EH) :HL 
POINTE DEBUT ABS PROG 
LD HL:14D44H) 
XOR a 
LD DE 7 BASPY 
DELTA=(4044)-BASPY 
SEC HL:DE 
DE=DELTA 
EX DE > HL 
POINTE TABLE 
LD HL:TAB-1 
ADD HL 7 DE 
PUSH HL 
POP x 
SREF LD L>(IX+1) 
LD EP 
OR 8 
iR Z:FINREF 
LD Hz(IY+2) 
4DD HL:DE 
PUSH HL 
POF IY 
LD L:(1Y+1) 
LD H:(1Y+2) 
ADD HL > DE 
LB (IY+4)2L 
LD CIY+2) 2H 
INC 1% 
INC 1k 
JR SREF 


HL:{4016H) 
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üé ICIEN DRIVIR CLAVIER 78AS DE76 67290 DEFU ET 
7ADE 229F77 Dé LE iKIF+13-HL |7A87 1774 07300 DEFU ET30 
7âii 218E78 E 12 LE ï FAAT 1C7é 57310 BEFH EE 
né 5: NOUVEAU DRIVER 7B8R 2474 07326 DEFW ET32 
7414 2218640  Üé LE {4018H):HL | 7BAD 3576 ü7330 DEF ET33 
7417 & Dé Has â ZB8F 3876 D734û DEFW ET34 
ü4 : CALL 33H 7AB1 3F76 57350 DEFU ET35 
7418 329477  DéS6ü ET3P LD {VID+2)54 |74B3 4674 07340 DEFW ET38+1 
06570 : DEEBUT EUFFER BASIC FES 4878 07370 DEF U ET37 
ZAÏB 212879 04580 ETS L 74B7 4D76 07380 DEF ET38 
Host UbE F7BBS 5876 07385 DEFH Be 
AE 224440  Dé600 7ABE 5B76 07400 DEFU ET40 
Dé610 7ABD 5E76 07410 DEFY ET4i 
3A3i CD4SIR  Dé620 78BF 4374 07420 DEFU ET42 
né620 7AC1 6476 07430 DEF ET43 
7A24 C3191A  Déé640 74C3 6976 07440 DEF ETé4 
Dé650 78CS 6D76 07450 DEFU ET45 
7827 NEA 06680 7 7176 17480 DEF ET4é 
7829 4117À 06670 ZACS 7478 7470 DEFU ET47 
ZA2B 187 DéLEO 7ACE 7874 07480 DEFU ET48 
Ro ct 7ACD 8076 07490 DEFU ET45 
ZAZF 8E7S Lie 7ACF 8776 07500 DEF ETS50 
des 6710 : 7AD1 8B74 07510 DEFW ETS1 
7833 4B75 a. DE * 7AD3 8F76 07520 DEFW ETS52 
735 7E75 06730 DE 1IN JA ERRe ere PER ES 
7A37 9075 06740 DEF DIS FADIAITE 07540 DEFH  ET54 
7439 AC7S 06750 DEFN  CAD2+1 etre LEE PERS ESS 
7A3E EE7S 06760 DEFW OUR het DANSE DER RETIRE 
7A3D F375 06770 DEFH  SLIG “ne LE DER RAI RES 
7A3F Dé78 06760 DEFU FE 7ADF FE874 07580 DEF ETS8 
7641 1F76 N47590 DEFWY SASC 7AE1 BE76 07590 BEFH BASE 
7h43 3176 Dé8ot DEFW FAPOIH FAE3 D276 7600 DEFW ETé0 
7845 4276 06810 DEFW  FLIG ES eue 07610 DEFW  ETé1+1 
ST GUTE he eu se 7AE7 DC74 07620 DEFU ETé2 
ZA49 7076 DÉBSD DÉEU EDIT TRP7 EPS Dean DÉRS£ NET 
7A4E 8476 06840 DEFW SUEDIT+1 JAËEE E478 07640 DEF ETé4+1 
7A4D 8474 06850 DEFW  ATED JAED EA76 07850 DEFH  ETés 
7R4F CB76 06860 DEFW SEARCH PRESPAZE ee BEEN. ETéé 
7451 OEË77 06870 DEF& FASC 74F1 FF74 67470 DEFH ET47 
7453 4177 Dé880 DEFW RECHER ZAF3 0677 07680 DEFW ETé8 
7455 4577 06850 DEFH RECH+1 7AFS 1877 0765 DEFH ET49 
7457 SD77 n4300 DEF ù EGAL 1 F7AF7 2177 Ü7700 DEFH ET?0 
7859 4 n4340 DEF bi CHS FAFS 2477 07710 DEFW . ET71 
ASE &F7: D4920 DEFU EDATR 7AFB 2777 07720 DEFH ET72 
FASD 8B77 04530 DEFW ÿIDEO1 7AFD 2E77 07730 DEF ET73 
7ASF À577 06740 DEFW KIE ZAFF 3877 0774 DEFH ET74 
7Abi AF77 06950 DEFW SURY 7B01 4877 7750 DEFU ETS 
7A63 C377 06760 DEFW SURCLA 7B03 5377 077460 DEFW ET76+1 
7A85 DB77 06970 DEFU KCHAIN 7E05 5877 07770 DEFU ET77 
7A67 DD77 06780 DEFU ATKC 7B07 7277 07780 DEFW ET78 
7483 EF77 06950 DEFW YISK 7B09 7577 07790 DEFW ET?5 
7A6B 5275 07000 DEFU ETO 7BOE 7877 07600 DEFU ET80 
7ñ6D CF76 07010 DEFW ETI 7BOD 7B77 07810 DEFU ETS 
7A6F 7478 07020 DEFU ETZ 7B0F 8377 07820 DEFW ETEZ 
7471 3F75 07030 DEF ETS 7B11 8477 ü783 DEFH ET83 
7473 4275 07040 DEF ET4 7B13 9277 0784 DEFW ETE4 
7A75 4875 07050 DEFW ETS 7B15 AC77 D7asd » DEFW ETES 
7477 6075 07060 DEFUW ETé 7Bi7 BS577 0786 DEFU ETS&é 
7A79 8775 07070 DEFW ET? 7519 CO77 07870 DEFW ETE7 
ZATE 8E75 07080 DEFW ETE 7B1B D477 07880 DEFU ETSE 
747D 7575 07090 DEFUW ETS 7B1D 0178 07890 DEFW ETES 
7A7F 8375 07100 DEFU ETi0 7B1F 0778 07500 DEFW ETS0 
7A81-8775 07110 DEF ET11 7821 DB78 07510 DEF ET?1 
7À83 9375 07120 DEFU ETi2 7E23 4078 0792 DEFU ET9Z 
7A8S 9775 07130 DEF ET13+i 7E2S 4478 0755 DEFU ETS3 
7A87 SB75 07140 DEFH ETié+1 727 4C78 07740 DEFW ET94 
7ABS A775 07150 DEFH  ETIS 7B29 5278 07750 DEFW  ET9S 
7ABE B07S 07160 DEFW  ETié+i a Die HE Qu 
7ABD H475 07170 DEFW 3 7B2C O000 07570 FINBÉS DEFW Ü0 
ZABF 975 07180 DEFW 7B2E 213175 07980 INI ED -—HL:BASPY 
7A91 BC75 07190 DEFW 07990 : DEBUT BUFFER BASIC 
3893 BF75 97300 DEFW 7831 224440  D8000 LD (4084H) > HL 
7495 C275 0 DEFU 7834 21SE7E TE ce LD HL>INI 
PRE es SEEU , 8020 : FIN BUFFER 
es nn S = cu 7837 22F940 08030 LD 40F 9H) >HL 
7A3E D475 ü DEFU le 08040 ; RETOUR 4U BASIC 
RCD 5 see 7E34 C3CCO6 08050 JP 8CCH 
are = DEFU 7B2E D8060 END INI 
ZABA FE7S 07 DEFW DN000 TOTAL ERRORS 
7AAG DB78 D DEFW 22072 TEXT AREA EYTES LEFT Alain Pinaud 
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essal 


_ Un nouveau poquette 


| le PC-1251 
et son interface CE-125 





Après le PC-1211, le PC-1500, le PC-1212 (remake du 
PC-1211), SHARP sort enfin un ordinateur de poche qui 
sait allier la petite taille du PC-1211 à la puissan- 
ce du PC-1500 : le PC-1251. En effet sa petite taille 
(135 x 70 x 9,5 mm) permet qu'il soit rangé dans une 
poche de veston par exemple... 


IL est: doté d'un microprocesseur 8 bits (malheureu- 
sement pour les adeptes du langage machine, il est 
différent de celui du PC-1500 ; donc tout le travail 
de recherche des instructions est à refaire !), d'une 
mémoire ROM de 24K octets, d'une mémoire RAM de 4K 
octets (3486 octets utilisateur). 


En un point, le PC-1251 diffère de ses prédécesseurs : 
la mise sous tension s'effectue à l'aide d'un inter- 

rupteur manuel à À positions (et non par 2 touches 

ON et OFF) ainsi que le changement de MODE (RES. , RUN, 
PRO). 


Le BASIC est tout à fait identique à celui du PC-1500 : 


PRINT, PAUSE, GOTO, GOSUB, RETURN, BEEP, etc. 


Mais alors, pourquoi ce BASIC occupe-t-il 24K au lieu 
de 16K ??? Parce qu'il contient des instructions sup- 
plémentaires par rapport à un BASIC standard : SETCOM, 
INSTAT, OUSTAT et bien d'autres ; or tout programmeur 
qui se respecte reconnaîtra ici des instructions d' 
entrées-sorties RS-232C. L'interface logicielle étant 
donc incluse dans le PC-1251:, à quand l'interface ma- 
térielle ? 


Autres particularités qui n'échapperont pas à toute 

personne s'intéressant aussi aux CASIG : le contraste 
d'affichage réglable, l'instruction ROM (eh oui ! elle 
est dans le BASIC du 125), la très forte ressemblance 


———————_—_——— Daniel Glazman 
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entre l'ensemble PC-1251+CE-125 et la FX-801P, et 
l'instruction PASS (protection du programme par un 
mot de passe). 


En effet, le CE-125 est une extension imprimante et 
microcassette. L'imprimante et de type thermique et 
peut imprimer 24 caractères par ligne ; on dispose 
d'un commutateur ON/OFF pour l'imprimante, d'un bou- 
ton pour faire avancer le papier d'une touche du PC- 
1251 (SHIFT ENTER) pour commuter l'impression automa- 
tique des données, et des commandes BASIC. 


La microcassette est commandable par les ordres CSAVE 
CLOAD, etc... et les 5 touches STOP/EJECT, FAST, RE- 
WIND, PLAY, RECORD et un interrupteur REMOTE ON/OFF. 


Le CE-125 est pourvu de 4 connecteurs 


un connecteur mâle pour le PC-1251 (11 broches) 
un connecteur femelle pour les futures extensions 
(11 broches) 

une prise jack femelle pour brancher un magnéto- 
phone extérieur 

une prise femelle pour l'adaptateur secteur EA- 
23E. 


A noter qu'au Japon est distribuée une version rédui- 
te du PC-1251 : le PC-1250 qui ne possède que 1438 
octets programmables utilisateur. 


Le PC-1251, d'une plus forte puissance que le PC-1211, —— 
d'un encombrement et d'un prix moins élevés que le È 
PC-1500, constitue le matériel idéal pour l'amateur ESS 
des ordinateurs de poche ou pour la personne qui dé- 
sire s'initier au BASIC... 


Maintenant, attendons les extensions... 
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=: 
En 
Es 
D 
© 
© 
EN 


Matériel 


mathématiques 





Soyez précis 


: PC-1500 ou PC-1251 


Votre claculatrice scientifique habituelle possède 


Lignes 10 à 11 


Ligne 20 
Ligne 30 


Lignes 40,41 
Lignes 60,70 





1: REM 


très certainement la fonction x ! (factorielle x) ; 
seulement voilà : 
et le résultat "sort" en puissance de 10. 


x doit être inférieur ou égal à 69 


Alors comment obtenir tous les chiffres d'une facto- 
rielle : tout simplement en simulant une multiplica- 
tion à plus de dix chiffres significatifs. 


Pour cela, on sépare tout nombre de plus de 10 chif- 
fres en plusieurs groupes d'au maximum dix chiffres: 


ex : 123456789012 —> 12 et 3456789012 


Puis chaque groupe de dix chiffres est séparé en deux 
de 4 et 6 chiffres pour pouvoir opérer une multipli- 
cation à retenue. Lors de l'opération sur un groupe, 
on additionne la retenue du groupe précédent. En fait, 
il s'agit d'une simple relation de récurrence entre 
un groupe de dix chiffres et le suivant. 


L'architecture du programme à présent : 


. initialisation ; 

. le tableau A(190) contiendra les 
groupes de 10 chiffres 

. mise à 0 de la retenue 


: si on veut A! 


alors BE[2,A] 


: pour multiplier tous les groupes 


par B 


: multiplication avec retenue 
: si la retenue du dérnier groupe est 


différente de 1, créer un nouveau 
groupe et y stocker la retenue 


CC) Daniel : C=A 


Ligne 80 


Lignes 90 à 120 : 


Lignes 200,201 


Petite démonstration : 


ficatifs. 





2:REM 
3: REM 
4 
2 


[e PEL 
28:FOR B=2T0 A: 
BEEP 


GLAZMAN 
CCS FRAÈCE 
n! 


:REM PARIS 82 
#4" CLERR 
INPUT A:F=8:C= 


2:DIM A(198):4A 
(F2=1 
:WAIT B:LPRINT 


1 


1:PRINT B 
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: FOR E=8T0 F 
: D=AC(E)XIE-6:A( 


ED=C:C=INT DXB 
X]1E-4:A(E)=ACE 
2+CCD-INT D)XI1 
F6%XB)+CC-INT C 
)X1E19 


:C=INT C:NEXT E 
AIFRCCDOPET-F=F 


+1:A(F)=C 


:NEXT B 
:Q$=" ":A$=STRS 


A(F):GOSUB 288 


dans vos factorielles 





: impression formatée du dernier 


groupe 
impression formatée des autres 
groupes 


: sous-routine de formattage 


pa! = 

9293326215 
4439441526 
8169923885 
6266729499 
2159682587 
4378963657 
2361367691 
2481532299 
1560894146 
3976156518 
2862536979 
2082722375 
8251185219 
9168648280 
2000000900 
0000000208 


100! avec 158 chiffres signi- 


Daniel Glazman 


: LPRINT A$:Q$- 
7 RE 

: FOR I=F-17T0 9 
STEP -1:9$- 
STR$ A(I) 
IF LEN A$<)12 
GOSUB 299 
LPRINT 4$ 
NEXT I:END 
A$=Q$+A$: IF 
LEN A$<)18G0OTO 
298 

: RETURN 








statistiques 


Un programme 
pour mieux 
prévoir 


(version poquette) 












LE LISTING EST 
ELOQUENT, vous 


M6 DEVEZ UNE 
AVGMENTATION DE 


A F 








Dans notre numéro 2 ("Un programme pour mieux prévoir" demarre ie programme. 

page 7), nous lançions une sorte de défi en disant : . Shift D - Entrées des données (couples X,Y). 

les lecteurs réussissant à faire tenir ce programme . Shift C - Correction de données (couples X,Y). 

sur poquette sont priés de nous en informer : c'est Stoppe l'exécution. 

moins encombrant pour s'expliquer avec son supérieur - À reprendre par exemple, avec Shift D... 
hiérarchique !)..." Pascal Cambier a réussi cette per- . Shift = - Donne les résultats. 

formance sur PC-1 (PC-1211). Merci à lui et bravo ! - Calcul de prévisions en donnant X ou Y. 
(NDLR) ON TÉE - 2ème point de Shift = (choix entre X 


et Y). 
CONSIGNES PRATIQUES 
een Note : 


Le programme est prévu pour l'imprimante mais peut 
naturellement être utilisé sans elle aux prix de quel- 
ques transformations de présentation (USING "...", 
BRENTAR SN) 


Mode DEF : 


. Shift SPC - Efface toutes les anciennes données et 


DONNEES 5 Re 
POUR #K=7 
Y =4.464512217 
FOUR X=8. 
 =4,737616933 
“: POUR H=9. 
NERIRE “=û+Bx = 0.381298 Y =4.992246741 
; GOQ0SE 00 Là MEILLEURE FOUR #=10, 
ESTIMRTIOH SERA F =3.231794287 
0.152436 PUISSE POUR X=0.5 
F =1.380867451 
POUR rate 
# =2,419755266E- 
ï 22,557 2748 qi 
POUR K=3,. FOUR Y=0, 
ÿ =3.063051337 # =D, 
POUR K=d, POUR Late 
YŸ =3,481021513 “_=3. 090$ 
De Et üz 
Ÿ =2.84d4135347 POUR Y=6. 
E= 2.25107T6E on POUR %=6. # =13,60866253 





EXPONENTIELLE 
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D D  DOOUETTE 


POQUETTE 


1:REM CSAVE "S 
TATIST" 
2:REM PC1.14 
10:" "CLEA 
15:"D':PRINT "D 


2 nie “ 
#2 INPUT "#7 
MIYEPRINT °X 
5 "SREPRINT 
MyYs #5 Y:GOTO 
20 
GÜTO 20 
E=£+iiC=C+x: 
D=D+Y:E=E+Kx 
LF=E+YY IV 
LOS YiG=G+XY 
SH=H+Y: I=I+y 
Vib=LOG KiJ= 
J+YHe K=E+U 
L=L+Hb}: M=t+y 
He HE 
BEEP 1:GÜ0T0 
20 
“C'PRINT "CÔ 
FRRECTICGH'": 
INPUT “"XK? "3 
#s INPUT "7 
MiYSPRINT "x 

Make PRINT 
she Ma: GOÜTO 


LOG Y:G=5-KY 
Eu à I-Y 
PiHELOS KiJ= 
lee E=E = 
LeL-iih}s M= H—"Y 
He HEH-ET 
BEEF 2: 
V=G-CR-Z 





Eds PER Exû 
SeZI IE CU=Z0 
5+{U=36)LET 
A=10"4 
35: ACU=E: ACU+1 
ef BCLHZIET 
: RETURK 
SO: USING "tnt 
Hit": 
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PRINT "AE A 
SPRINT “E=": 
BIUSIHS "HH. 
HHHHEU": 
PRINT "EST 
sUSIHG : 
PRINT " "ae 
FETUREH 

100: "="PRINT "LI 
HERIRE Y=ÿ+E 
EM: GÜSLE 140 
:GOSUE 30 

110: PRINT "EXFON 
ENTIELLE": 
PRIHT * ‘=fA 
ExPÉBæs is 
GÔÜSUE 150: 
GOÜSUE 30 

ZEUS FRINT "LOGAR 
ITHMIQUE" : 
PRINT “ Y=fA+ 
BxLOG: 5 88 . 
GOÜSUE 160: 
GÜSUE 30: 

ISO: PRINT "PUISS 
ANCE": PRINT 
M OY=hntpts 
GÜSUE 170: 
GOSLE 90: 
GÜTO 150 

140: SZ: Ü=H: P=E 
sG=C: Rss S=F 
*GÜSUE 80: 





: GOSUE g0+ 
FETUEH 

160: US3S: Cie] 
IOEKIR= A 
IGOÜSUE S 
spas 
sU=36: M: PEL 


RETUEH 
1SG: SO: FÜR W=23 





ISO: MEXT HEFRIHT 
"LA MEILLEUR 
E":PRINT "ES 
TIMATION SER 
à" 


2OCE MN UE: GÜSUE 
SOU: YEN SZ 
GOÔTS 220 

ZÛUZ: PRINT "LINE* 
IRE': RETURH 

SDS: PRINT "EXPON 
ENMIELLE!: 
ÉETURH 

SOS: PRINT *LOGAE 
ITHNIGUE*: 
FETLURH 

ZiZ: PRINT "PUISS 
AHCE"3FETUEH 

SSI: GOSUE LOV4IT 
Ü: SUR TEE 1 


2x: ho %: 
INPUT "x QU 
Ÿ 7 "5R$: 
nr Li FR 
IGQÛÜTO #0 


: IHFU IT 


PRINT POUR 
s=ts ss QGÜSUE 
22042 is PRINT 
nus =1t : ‘a ; GC Ti 
Si0 

15: GÜTO ZiÙ 

2S: T=A+EHE: 
RETURH 

Zi VERKHESF CE 
: RETUREH 

LB: VeÂ+EELEODG 
RETURH 

ZBEE Yehe EE ss 
FETLURH 

400: "" 

HICG:EEEF =: INPUT 
AT 
PRINT "POUR 
ÿ="s r: GOSUE 
2C+EU: PRIHT 
"x ="3R: GOTO 
410 

415: GÛTC 4i0 

APT: He YA Et 
RETURN 
424:H=LN CY/40/B 
: RETUEN 

ATÉs Al LÉ pe 
E2:RETURH 
He CYADS CE 
3: RETURN 
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utilitaire 
Recopiez l'écran de votre 
PC-1500 ou PC-2 


gne entre 2 points ; donc représentons un point de 
(CC) Daniel GLAZMAN l'écran par une de ces lignes... ce qui donne le pro- 


CES TRACE gramme HARDCOPY. 


PARIS 1983 L'appel se fait par un GOSUB"Z", on laisse tourner 
(j'ai beaucoup d'estime pour ce "on") et on admire... 








ARCHITECTURE PROGRAMME : 


HARDCOPY 


Ligne 20000 : initialisation 

Ligne 20005 : ligne par ligne 

Ligne 20007 : colonne par colonne 

Ligne 20010 : le point est-il allumé ? si oui tracer 


20090: "Z"GRAPH x sur l'imprimante une petite ligne 
SORGEN : Az! Ligne 20020 : R-A-S 

2082905:FOR I=0T0O 6: Ligne 20021 : EXIT 
A=AX2:1F 1-0 


Exemples : 10 PRINT"'HELLO,EVERYBODY..." 








LET ÀA=1] 20 GOSUB"Z" 
20887:FO0R J=OTO 15 30 END 
5 
20819:X=POINT JAND 
A: IF X<2D Ne re 
LINE CJ, -IX3 10 FORI=0T0155:GPRINTI ; :NEXTI 
DÉCRIRE 277) 20 GOSUB"Z" 
2802D:NEXT J:NEXT 30 END 
I: TEXT Re 
28821:LF 1:RETURN 
eh oui ! Ça marche... 
s + Pour 5 ffets spéci : l 
Tous les ordinateurs de table disposant du graphique es ÉOR 2 RS PM sn Re 
et d'une imprimante peuvent recopier l'écran sur l'im- en ligne 20020 
primante, alors pourquoi pas le PC-1500, ce grand or- LINE(J,-1*3)-(J,-I*3-2) par 
dinateur de poche ? LINE(J,-1*10)-(J,-1*10-9)... et essayez. 


En effet, pourquoi pas ? La CE-150 ne peut pas impri- 
mer un seul point mais est capable de tracer une li- —_————"—.————.—....… Daniel Glazman 





LISEZ ET FAITES LIRE 


RACE 
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Lin) 
En 
= 
= 
© 
© 
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essal matériel 


ne interface universelle: 
CE-158 








directement prévus pour une imprimante 80 ou 132 co- 


lonnes. Le débit (en bauds) est programmable de 50 à 


2400 bauds. Les caractères peuvent être formés de 5, 
6, 7 ou 8 bits. Le mode "terminal" permet la transmis- 


= E— SEE sion de données avec un ordinateur personnel, le trai- 
ES : tement de données de mesure à partir d'instruments. 
Fe 3 L'interface parallèle permet la connexion directe avec 
4 toute imprimante 80 ou 132 col. de la gamme SHARP (ou 
: tout autre au format de sortie parallèle 8 bits). 
F = La CE-158 est donc une interface très intéressante 
< ; 5 : pour le PC-1500 : en effet, on peut, par exemple, sau- 
Y à Pr à F SE 3 ver les programmes de son poquette sur le floppy de 
. # à Frame EE son ordinateur de table, communiquer avec un autre 
en Par 2 PC-1500 par le téléphone. Malheureusement, son prix 
: : rs 2920 (environ 2500 F TIC) ne la met pas à la portée de tou- 
res tes les bourses. On peut cependant espérer que l'écart 
La CE-158 de SHARP est une interface RS-232C et paral- entre le prix français et les prix des autres pays 
lèle pour PC-1500 ; elle se branche directement soit (environ 1200 F de différence) va réduire avec le 
sur le PC-1500 soit à l'arrière du CE-150. temps. 
L'interface série RS-232C permet le branchement sur Un dernier mot sur le manuel d'emploi du CE-158 : il 
un coupleur acoustique, une imprimante, un traceur de est très technique... donc il est conseillé de con- 
courbes, un autre ordinateur, un affichage vidéo. naître la liaison RS232C avant de s'aventurer dans ce 
Elle rajoute 34 ordres au BASIC dont certains sont manuel ! ? 
Daniel Glazman 
| { 
A 2 Li 
) 














mental 








merveille des ordinateurs : ils calculent pour 


Lorsque ‘vous possédez une petite calculatrice (ou un On, 
nous... eh bien non !... 


TRS-80 pocket/Sharp PC-1211), et que vous avez un cal- 
cul un peu compliqué à faire, vous sortez votre machi- 
ne de votre poche et vous calculez... Mais... sous £ 
prétexte de calculs un peu compliqués, vous sortez F 
tout le temps votre calculatrice... Erreur fatale... à c: 
Dites-moi, sans utiliser votre calculatrice combien 

font 2705 x 68 ?... Mode d'emploi : 





urd'hui, je vous propose un programme de Calcul 
1 sur pockette qui vous permet de "réapprendre" 
culer mentalement et rapidement... 


£ 
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Après avoir rentré le prog 
SHIFT - 


Jours les mêmes... (essayez plusieurs fois l'exem- 
e ci-dessus). 
enant, Je vous laisse taper ce programme et... 


Vous voyez apparaître :z me 
Y PP = apprendre à calculer. 


RND = 


ss Le programme : 
Tapez un nombre entre @ == =. pee 


Ex : RND = 0:270568ENTE2 Ligne 10 : présentation, demande du "RND" 

Ligne 20 : formule classique du "RND" 

Ligne 50 : demande du nombre d'essais du joueur et 
du nombre de chiffres avec lesquels ce- 
lui-ci veut calculer 

Ligne 55 : formule permettant de savoir entre 0 et 
combien il faut choisir les chiffres du 
RND 

Ligne 60 : demande du signe avec lequel le joueur 

(1/8) : 2ENTER : veut calculer 

Ligne 70 : affichage du calcul à faire et demande 
du résultat 

Ex : Signe (+,-,*,/) : + ENTER Ligne 80-100 : texte du calcul à faire 


Un bref instant, et bip, le calcul clignote le nombre Ligne 110 ; affichage de a REE RAP CERTES 
vaise entrée du signe 


de fois le nomb de chif ici, 2) ; 
Re HerneNe EE A Cr ce Ligne 120 : affichage de la phase de solicitation 
Ex : 54 + 46 = Ligne 130 : affichage du résultat exact si celui du 
était faux 
? ENTER joueur étai 
PMR 10 Ligne 900 : affichage de l'au-revoir et fin 
Bip, bip... BRAVO, CONTINUEZ... Ligne 910 : affichage de la note à 
i . ! 

ATTENTION, JE RECOMMENCE.. Higne 920 + on recone 
Bip Organisation de la mémoire : 

HER B : le RND (calculé) 
RESULTAT ? 158 (ce qui est faux!) ENTER C : borne supérieure 

D : nombre de chiffres 

PRPADENCHENCE,S E : nombre d'essais 

74 + 62 = 136... (c'est évident !) R : résultat (du joueur) 

: S : opération 
: : £ : 

Et ainsi de suite jusqu'aux 3 essais... NE ee nine) 
Avez-vous essayé de calculer avec 8 chiffres ? C'est 2 RE Le 

ÿ Y : 2ème nombre 
très impressionnant... 2 ND (du ioueur) 
Mon record personnel est une addition avec 6 chiffres s J e 
éocroydble ne ie F : nombre de tours effectués 

F e- T : notre sur le nombre de tours 
À la fin du jeu, l'ordinateur vous affiche votre note 
sur le nombre d'essais... Essayez d'avoir la moyenne... Le reste de la mémoire n'est pas utilisé. 
Un conseil pour les tricheurs... (ce n'est pas bien, 
ce que je fais là !) 
Lorsque l'OP vous demande : RND = , si vous rentrez 
2 fois le même nombre dans 2 parties différentes, 
vous remarquerez que les nombres tirés au hasard sont Jean-David Blanc 
Se REM NEMN CUP 2=iPRINT "Pâ HeRY: GOTO 15 : 3Y3 


Après une brève 
nombre d'essais 
combien de fois 


Ex = NB D'ESSASS 





Puis, le nombre 
voulez calculer. 


=s (1/8) avec lesquels vous 





Et enfin avec quel signe vous voulez calculer. 





RIHGT =: J-1D SAVE Ê ya 
ELANC ET TF8 GOTO 50 IF Sf="/"LET 
BE DS ESÈES = V=IHT CK/Y2: LGÜSUE SQ0: 
jO: "="CLERR : RES CE = BOTO 170 GOTO rû 
INPUT "ENT = HSE BEEF S:PFRIAT S00: IF F=EBEEP 3 
Ms: PAUSE " > INPUT "SIGNE FCFEST FâlR :PAUSE "CES 
ÆCALCUL F Dts—ske si 2 AUS T L'HEURE DE 
ENTALX#" à: BEEP “sS BE FIEZ NOUS..." 
2:G0T0 50 RAF PAUSE "SUITT 
20: FR B=2416 2 A ER, AU REY 
Z it GIR...":HEEP 
i 
Si0:IF F=EFRIHT 
“YOTRE NÜTE 
EF TER È . AP RCA 
a0: IHPUT è - += - =T+1: El 
ESSBI :°: ; G 120 +i 1: 608 SE SEC: BEEF 2: PAUSE 
INPUT °C E Az 1 >= SATTENTIOH.. 
EN LE CHIF.< F= É “FAs D «Je RECON-": 
i“8) =2*"3C051E e CHANGE." PAUSE -MEHT 
ÉC=0+ÉE-n3 D Fr LAN E ST E..."2RETURN 
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= 
x 
ce. 
© 
Fe 


extension logicielle 





Pilotez 
deux magnétophones 
avec votre 


PC-1500 ou PC-2 





Si vous possédez la CE-155, Changer les lignes sui- 
vantes : 


19 DATA &A5,&38,0 
12 DATA &AE,&38,0 
15 FOR I=&38C5 TO &38C5+11 : -—- 
17 POKE &3800,3 : -—- 
Taper : RUN 
Mettre l'interrupteur REMOTE sur ON 
Taper —> REMOTE est mis à OFF par SOFT... 
Ne touchez plus à l'interrupteur ! 
Maintenant l'ordre REMOTE sera inversé (ON OFF) par 
un simple CALL &49C5 (&38C5 avec CE-155). 
Alors quel était le petit plaisantin qui se plaignait 
du fait qu'on ne puisse télécommander qu'une K7 par 
SOFTWARE ? 


A5 40 09 LD À, 4000 
BD 06 *XOR À; 26 


AE 40 00 LD 4898,A 


BE BF 28 CALL BF28 
9A RET 





L'adresse d'implatation étant &40C5, l'adresse &4000 
étant initialement positionnée à 3. 


Pour rentrer le programme assembleur : 


taper : NEW&lOD1 (&38D1 avec CE-155) 
rentrer le programme suivant : 


l:REM (CC) Daniel 

GLAZMAN 
2:REM (CC) TRACE 
3:REM PARIS 83 





19: DATA 8&A5, &40, 0 

11: DATA &BD, 826 

12: DATA &AE, &49, 0 

13: DATA &BE, &BF, & 
28 

14: DATA &SA 

15:FOR I=8&42C5STO 
&4BC5+11:RERD 
A:POKE I, A: 
NEXT I 

17:POKE 8&4999, 5: 
CALL &4QCS5: 
INPUT=CREMOTE 
SUR ON ?";A$ 

18:"Z"CALL &49C5 





Vous disposez de deux magnétophones avec votre inter- 
face cassette ; or, à partir du BASIC, vous ne pouvez 
en télécommander qu'un seul... 


A partir du BASIC, oui, mais à partir de l'assembleur 

. En &BF28, se situe la routine de télécommande des 
2 magnétophones. En effet lorsque vous inversez l'in- 
terrupteur REMOTE, ce n'est pas le hardware qui tra- 
vaille mais le software. Lors de l'appel en &BF28 
(CALEYES 


si ACC 3 — REMOTE OFF 
si ACC 5 —— REMOTE ON 
or 3 = 5XOR6 et 5 = 3XOR6 


donc le listing en assembleur sera : 


———_————— Daniel Glazman 


Vos amis 


connaïissent.ils 
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le DOS de À àZ 


COPY 


(suite) 





Le Modèle 1 possède plusieurs Systèmes d'Exploitation 
des Disquettes (SED, ou DOS en anglais). Ces diffé- 
rents systèmes ont beaucoup de points communs, 
particulièrement ceux de la "lignée" TRSDOS- 
NEWDOS-NEWDOS80-LD0S, qui s'inspirent tous, à 
quelques détails près, du TRSDOS de Tandy (version 
initiale 2.1). Nous publierons régulièrement sous 
forme de fiches pratiques, les commandes de ces 
différents DOS, classées alphabétiquement. Ces 
fiches ne prétendent pas remplacer les manuels 
originaux qu'il est impératif de posséder (ii 
n'était pas envisageable de publier sous cette forme 
l'équivalent de plusieurs centaines de pages ...). 





Leur but est de fournir à 1! 
information rapide d'accès ( 
pratique (exemples d'utilisation), comparative 
(différents DOS) et dans une langue qu'il est censé 
connaître (français)... 


Les DOS les plus répandus ont été retenus pour 
constituer ces fiches. Ce sont le TRSDOS version 2.3 
de Tandy, le NEWDOS80 version 2 d'Apparat et le 

LDOS version 5.0 de Lobo Drives International. En 
règle générale, nous nous baserons sur les commandes 
du TRSDOS, en signalant les différences ou les 
apports rencontrés dans les autres systèmes 
d'exploitation. 


Conventions d'écriture 


Dans la description des commandes, les mots en 
caractères majuscules désignent les commandes 
proprement dites, ainsi que les mots-clés associés. 
Les mots en caractères minuscules ne font pas partie 
des commandes mais en représentent la forme. Au 
moment de l'exécution, il faudra leur substituer 

le ou les mots appropriés. Parmi ceux-ci, nous 
trouverons par exemple "nomfich", qui désigne 

un nom de fichier, "motpasse" qui signifie qu'un 
mot de passe (password) est attendu à cet endroit. 
Dans tous les cas, un coup d'oeil sur les exemples 
donnés devrait lever toute ambiguité. 

Enfin, il faut signaler que le NEWDOS80 emploie 
Sndifféremment la virgule ou l'espace comme 
S=rateur dans les commandes. 


ms mme mme mme mm ns 
— = =. ——… Os + ms © © ……… ……— mms © …—… ms © © mm + ns 





Nous poursuivons dans ce numéro la description des 
différents formats de la commande COPY sous NEWDOS 80 
V20 par l'étude du format 5. 


FORMAT 5 


OPY,L:Jldn1if=te1i]l,TO],[:du2]l=te2],mm/jj/aal,Y1L,N] 
CNDMWI]L,FMTJ(,NFMTI[,SPDN-=du3]i,DPDN-du4] 


[,SPW=mot de passe 1][,NDPW-mot de passe 3] 
C,DDNDIC,ODN=nom1][,KDNI[,KDD][,NDN=nom 2] 
C,SN=nom 3][,USD][,BDU](,UBB] 





Ce format réalise une copie globale de disquette avec 
des spécifications par défaut des unités de disque : 
äni (source) et än2 (destination) fournies par PDRIVE. 
Les disquettes source et destination doivent avoir les 
mêmes nombres de secteurs par granule, granules par 
lump et secteurs par piste pour que la recopie puisse 
se dérouler normalement, le format 6 sera utilisé dans 
le cas contraire. 


Les options du format 5 


sont les suivantes : 


= tel Nombre de pistes de DRIVE source à pren- 
(TRACK COUNT)| dre au lieu de la valeur par défaut du 
DRIVE Source fournie par PDRIVE. 


= tc2 

(TRACK COUNT)] Nombre de pistes du DRIVE destination 
à prendre en compte en lieu et place de 
la valeur par défaut du DRIVE destina- 
tion fournie par PDRIVE. 


mm/jj/aa Date écrite sur la disquette destination 
cette date peut être omise avec le for- 
mat 5 le plus simplifié : COPY O 1. 

Y La disquette destination peut contenir 

(YES) des données préalablement écrites. Y est 
mutuellement exclusif avec ODN, ODPW, 
DDND, KDN ou KDD (Y est la valeur par 
défaut). 

N La disquette ne doit contenir aucune don- 

(NO) nées. N est mutuelleemnt exclusif avec 
Y, ODN, ODPN, DDND, KDN ou KDD. 

ND MW Le DOS suppose que les diquettes sont 


(NO DISKETTE)| montées dans les unités de disque spé- 

(MOUNT WAIT) |cifiées. Aucun message de demande d'in- 
sertions ou d'erreur n'est affiché. Si 
NDMW est spécifié sans spécification de 
FMT ou NFMT alors la format par défaut 
est FMT (disquette destination à for- 
matter). 


FMT Le DOS procède au formattage de la dis- 

(FORMATTING) |quette destination avant de réaliser la 
recopie de données. FMT est mutuellement 
excusif avec NFMT. Dans le cas où ni FMT 
ni NFMT, ni NDMW ne sont spécifiées alors 
le message suivant est affiché ' FORMAT 
DISKETTE ? (Y OR N)'. 
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NFMT (NO e DOS ne formatte pas la disquette des- 

FORMATTING) tination avant de recopier les données. 
L'utilisateur doit s'assurer que celle- 
lci a été correctement formatté. 


SPW=mot de passe 1 (pour disquette source). Si les 

(SOURCE ots de passe sont validés (option SYS- 

PASSNORD) TEM AA=Y) et AR=N alors l'ordre COPY 
écessite une correspondance exacte ou- 
tre le mot de passe principal de la dis- 
quette source et mot de passe 1 fourni 
par l'utilisateur, si ce n'est pas le 
cas la copie est interrompue. 


NDPW=mot de passe 3 (nouveau mot de passe pour dis- 
(NEW DESTINA- fquette destination). NDPW est mutuelle- 
TION PASSWORD)ment exclusif avec BDU. 


DDND 
(DISPLAY DES- Affichage de l'ancien nom et de l'an- 
TINATION NAME lcienne date de la disquette destination. 
AND DATE) DDND est mutuellement exclusif avec Y, 

N et NDMW. 


ODN=nom 1 (ancien nom de la disquette destination) 
(OLD DESTINA- Si celui-ci n'est pas égal à nom 1 alors 
TION NAME) le DOS interrompt la séquence de recopie 
laissant à l'utilisateur l'initiative 
de poursuivre ou non la séquence. ODN 
est mutuellement exclusif avec Y, N et 


INDMW . 
KDN La disquette destination conserve son 
(KEEP DESTI- ncien nom au lieu de recevoir celui de 


NATION NAME) la disquette source. KDN est mutuelle- 
ent exclusif avec Y, BDU et NDN. 


KDD La disquette destination garde son an- 

(KEEP DESTI- [cienne date au lieu de recevoir mm/jj/ 

NATION DATE) a de la commande COPY. KDD est mutuel- 
lement exclusif avec Y, N, BDU, et USD. 


NDN=nom 2 Nouveau nom de la disquette destination) 

(NEW DESTI- [La disquette destination prend nom 2 

NATION DATE) [comme nom au lieu de recevoir celui de 
la disquette source. NDN est mutuelle- 
ment exclusif avec BDU et KDN. 


USD La disquette destination utilise comme 
(USE SOURCE [date celle de la disquette source au 
DATE) lieu de recevoir mm/jj/aa. Fourni par 


l'utilisateur USD est mutuéllement ex- 
clusif avec KDD et BDU. 


SN=nom 3 (Nom de la disquette source). Si le nom 
(SOURCE NAME) |de 1a disquette source est différent de 
nom 3 un message est fourni par le DOS 
permettant à l'utilisateur de décider 
si oui ou non il veut effectuer la copie. 


BDU (BYPASS [Interdit la mise à jour de la disquette 

DESTINATION destination. En plus de la recopie des 

UPDATE) secteurs source vers la disquette des- 
tination le format 5 transmet normale- 
ment à céètte disquette les informations 
du BOOT et de PDRIVE à l'intérieur du 
fichier destination BOOT/SYS ; sont é- 
galement transmis le nom, la date, le 
mot de passe principal dans le fichier 
DIR/SYS. BDU interdit ces recopies, il 
est mutuellement exclusif avec KDN, NDN, 


NDPW et USD. 
UBB Cette option sans usage Sas la version 
(USE BIG 2 de NENDOS 80 a été maintenue pour con- 
BUFFER) server une compatibilité directe avec 


la version 1 qui ne permettait pas aux 
possesseurs d'un seul DRIVE d'utiliser 
la zone mémoire RAM au-dessus de 7000H 
pour l'ordre COPY. Si l'utilisateur vou- 
lait forcer le DOS à exploiter l'ensem- 
ble de la mémoire RAM (jusqu'à HIMEM) 

ce paramètre UBB devait être spécifié. 


Index des 
mots-clés 





La liste des mots-clés figurant ci-dessous est 
destinée à être exploitée par le programme de 
gestion des articles décrit dans le numéro 1 de 
TRACE (pages 58 à 64). Le format est le suivant: 


Nom abrégé de l'article, numéro de page : 1 à 
mots-clés. 


En prenant l'habitude d'entrer cette liste à 

chaque numéro de TRACE, vous constituerez ainsi une 
petite base de données vous permettant de trouver 
plus efficacement et plus rapidement l'article que 
vous cherchez. Bien entendu, cette liste est donnée 
à titre indicatif, et vous pourrez toujours en mo- 
difier ou en compléter le contenu, afin de l'adapter 
à vos besoins ; mais avant toute chose, vous devez 
vous imposer une certaine normalisation des mots- 
clés (en principe, ils sont limités à 12 caractères) 
PROGRAMME par exemple, indiquera toujours qu'un 
listage de programme est donné dans l'article. Pour 
cela aussi, faites-nous part de vos idées! 


INTERFACE MDX2, 18 : ESSAI, DISQUETTES, 
MATERIEL, KIT 

GALETTES, 19 : ESSAI. GALETTES, WAFERS, 
MATERIEL 

RENOMMEZ-LES, 20 : MODELE 2, PROGRAMME, 
OUTILS 

TAQUIN, 21 : PROGRAMME, BASIC, JEU 

LOGOTYPE, 24 : PROGRAMME, BASIC, DESSIN, 
ECRAN 

MINI-MONITEUR, 26 : PROGRAMME, BASIC, OUTIL, 
MONITEUR 

CASSE-BRIQUES, 29 : PROGRAMME, BASIC, JEU 

POMPE, 32 : PROGRAMME, ENSEIGNEMENT, GRA- 
PHIQUES 

ROUTE DE NUIT, 34 : PROGRAMME, BASIC, JEU 

NEWDOS80, 40 : ESSAI, LOGICIEL, DOS 

UTILITAIRE, 43 : PROGRAMME, OUTILS, CLAVIER 
MOD1 

TRAITEMENT DE TEXTE, 48 : PROGRAMME, TDT 

EXTENSION, 50 : BRICOLAGE, MATERIEL, INTER- 
FACE 

OUTILS, 51 : OUTILS, BASIC, ASSEMBLEUR, 
MONITEUR 

POT25 1/5 HE: POQUETTIE MPCI25S 1 ACEL?2S RES GCAT 

FACTORITELLES, 58 : POQUETTE, PROGRAMME, 
MATHEMATIQUES 

MIEUX PREVOIR, 59 : POQUETTE, PROGRAMME, 
PREVISION 

RECOPIEZ, 61 : POQUETTE, PROGRAMME. HARD 
COPY 

CE158, 62 : POQUETTE, CE158, INTERFACE, 
ESSAT 

CALCUL MENTAL, 62 : POQUETTE, PROGRAMME, 
ENSEIGNEMENT 

DEUX MAGNETOS. 64 : POQUETTE. PROGRAMME. 
CASSETTES 

DOS DE À À Z, 65 : FICHE DOS 
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Possesseurs de FRS et de VIC, découvrez le 


support du troisième type 


Un Wafer (cassette a bande magnétique sans finestillustréicientaille réelle. 


et ses lecteurs 


ÉESF: (Exatron Stringy Floppy) vous apporte une immense 
souplesse d'utilisation, grâce à son branchement direct sur 
votre ordinateur sans besoin d'interface d'extension: À un 
prix nettement inférieur* au lecteur de disques, sa vitesse 
est surprenante: environ 1 Ko. -par seconde, sans aucune 
- manipulation, et avec une fiabilité inégalée sur un SHCULE 
bande magnétique. Son manuel décrit avec soin et en fran. 
- çais, les techniques évoluées de gestion des fichiers 
séquentiels, sur une ou plusieurs unités chaînées. Existe aussi. 
en coffret avec son système d'exploitation, 5 wafers, des pro. 
“grammes de démonstration etun classeur de “wafers… 
Chante 3: mois. pièces et main-d œuvre 


Venez voir l'ES-F-en démonstration permanente chez = 
 MICRO-ENERGY. BOUTISOFF 
99; rue StEazare 9, rue de Lalande 
75009 PARIS 33000 BORDEAUX 
Tél: (D 2812317 Tél: (56) 9155.08 


*Prix TTC conseillés au 1/2/83: 


‘FRS-80 Mod f Drive O 2495,- TFRS-80 Mod 3 Drive 0 
‘FRS-80 Mod t Coffret. 2.995,- TRS-80 Mod 3 Coffret 
VIC:20/64 bientôt disponible TRS-80 Mod 3 suivant 


Importation et Diffusion 
d'Equipement Micro-informatique 
34 bis rue Sorbier- 75020 PARIS 
Té:: (D 3584435 


Importateur-exclusif 
Recherchons des revendeurs 
CRAN ERSENTSS 


disques pour 
III TM 


TRS modèle 
QUALITE 


Pour celà, nous avons sélectionné: 
e le meilleur contrôleur qui soit. Il vous permet de piloter 

4 disques 5 ou 8 pouces (associé à DOSPLUS et à l’aide d’un 

câble externe). Ses connexions plaquées or vous assurent une fiabi- 
lité à toute épreuve. 
e TANDON, les disques les plus fiables et les plus performants, 
offrant un temps d'accès maximum de 5 ms. 
De plus, l'assemblage, le montage et les tests individuels sont assu- 
rés par nos équipes compétentes (prévoir 48 heures). Notre garan- 
tie de 3 mois s'étend sur les pièces et la main d'œuvre. 


AURON CS à 


Ne vous limitez pas à 175 Ko. par disquette. 

Pour un faible supplément, équipez-vous de disques double face 
en 40 pistes (384 Ko.), ou en 80 pistes (768 Ko). Ces unités peuvent 
être combinées de façon à satisfaire tous vos besoins, même si 
votre ordinateur est déjà équipé d’un disque constructeur. 


a LÀ D. 


Là, n’ayez plus aucune hésitation. 
Nous vous offrons la 


configuration de base disque LE 


5.995 


prêt à fonctionner 


En démonstration permanente chez 


MICRO-ENERGY  BOUTISOFT 
92, rue St Lazare 9, rue de Lalande 
75009 PARIS 33000 BORDEAUX 
Tél: (1) 2812317 Tél: (56) 91.55.08 


*Prix TT-C. conseillés au 1/3/83: 
Disque 0 monté 175 Ko. TRSDOS 5.995 Disque interne supp. 175 Ko 
Disque 0 monté 384 Ko. sans DOS 7.095 Disque interne supp. 384 Ko. 
Disque 0 monté 768 Ko. sans DOS 8295 Disque interne supp. 768 Ko. 
Contrôleur complet sans disque 3.295 Dosplus 34 MOD 3 


Demandez notre catalogue de produits pour Modèle III 


-Importation et Diffusion 
d'Equipement Micro-informatique 
34 bis, ruc Sorbier - 75020 PARIS 
LCRUEESCETES 


Importateur exclusif 
Recherchons des revendeurs 
sur toutc la France 
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LE FUTUR EN MICRO 
INFORMATIQUE! 
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